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DESCRIPTION 

This is the first of two books containing the Atari Coiiputer Cbmp 
BASIC curriculuM* The lessons were designed to cover the needs of 
caMpers with a wide range of abilities and computing background* It 
is Most likely that the group using this book will be Made up of 
individuals who have had soMe experience with coMputers* They Might 
have had an introductory course with sone prograMning in BASIC* PILOT 
or Logo* They should have typed in prograns* and they should be able 
to Make Modifications to existing prograns* It Might be necessary to 
have older canpers begin in this book in order to place then with the 
appropriate age group. If that is the case* they will need additional 
assistance until they catch up with the group* 

The book is divided into three sections* The first contains this 
overview* instructions about activities that should take place the 
first days of cbmp and about non-cur r iculuM related activities such as 
using Bank Street Writer* Hofie File Manager* Paint* and other 
software* The second part is Made up of seven curriculuM Modules* and 
the third is an appendix with prograM listings, charts* and other 
general inf or Mat ion ♦ 

The seven nodules cover the following topics* 

Review of Sinple Progranning and Atari Editing 
Atari Sound and Graphics 
Var iables 
Loops 

Subroutines 3nd Structured Programming 
Conditionals 

Project Using Utility Prograns* 

Each nodule has lessons whose directions are specific enough to nake 
it possible for a Teaching Assistant to instruct a snail group of 
canpers if necessary# while the teacher instructs the najority of the 
group or works with individuals who are completing projects fron a \ 

prior session* 

THE BOOK IS NOT MEANT TO BE USED IN ITS ENTIRETY! Many 
activities can be done without having conpleted work in previous 
nodules# although sone lesisons require prior knowledge of a concept* 

For exanple# canpers should know how to use variables before they 
begin the nodule on loops* It would be best if you becane faniliar 
with the content of each nodule# so that you can choose tasks 
appropriate for each group or individual you are teaching* 
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To help you find different types of activities, a code is placed 
next to the page nuMber at the bottom of each page. 

LP - 



IA 



T - Indicates that this page is also available as a 
Transparency . 

C - Chart, These are pages that will be useful for 

More than the lesson in which they are introduced* 
Charts have been duplicated in quantity, so that 
canpers can Keep theM in their binders for reference. 



MATERIALS 

The list below includes all Materials necessary to teach the 
lessons in this book. Not all lessons require all of the iteMS, 
Refer to the specific Module's cover sheets to identify Materials 
needed for that module. 

BASIC Cartridge 
SASIC Utility Disk 

Personal Diskette for each camper. This is a blank 
diskette that the camper will use to store programs. 

Atari Graphics Modes Paper 

Control Graphics cards or duplicated sheets 
General Utility Diskette 
PAINT and PAINT Data Diskette 
P layer Maker 

BASIC Reference Booklet (One per machine) 

The following optional support Materials will also available soon 
after caMp starts. 

Duplicated copies of selected articles froM the Atar i 

Connection ♦ These are available in classroom sets 
in the library. Some will have cross references 
in the curriculum itself. 

A list of one Minute "filler" activities that includes such 
things as famous names in computing, the history of 
computers, word games, jokes, vocabulary building, etc. 



A Lesson Plan page. This could be directions 
for the teacher or teaching assistant, or a 
student worksheet necessary for the lesson. 

p . ,\*c ■ :.r 

Individual Activity* An activity for a canper 
who needs review or practice , but does not 
need a formal lesson* 
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RESOURCES 



The following books are in the library and have prograMS or 
inf or nation that will be helpful. 

I nside Atar i ESasic 

I ■ ,1 _« ■ I I I I Tl II ..mu II am MMMMMMMMtMNI 

Your Atari Computer 

Atar i Sound and Graphics 

101 Atar i Programming Tips and Tricks 

Atar i BASIC - L earning By U sing 

Making of a Micro 

Arnc hair B ASIC 

» « « a mammarnammam — ■■■■■ i iwii am mamma ■■■— i» n — 

Atari Ganes and Recreation 

— — ■ ■■■ ■■ — tM».» .w . wn mmma •mmmmmmmmmmmmm ama 

You J ust Bought a Personal Wh at? 



CUR RICULUM EVAL U ATI ON 

It would be best if you documented the way you used this book and 
the degree of success you encountered in each lesson as you teach the 
lessons ♦ Make notes on the book itself# The books will be collected 
and the notes used to help evaluate each module ♦ Put a tally mark of 
some sort on each page you use each time you use it# 

Use the computer network to send lists of pages that contain 
errors such as misspelled words, errors in programs, etc# We will be 
on the network every day, so it will be much easier and faster to use 
that media rather than receiving information by U# S# Mail# It is 
especially important that any student worksheets that have errors on 
them be reported immediately, so that we can send corrected copies to 
replace them# Do not s e n d pages home that . h ave errors on them ♦ 

Remove them from the campers' binders and we will replace them (if 
time permits) before they leave camp# F r or mistakes in the teacher's 
binders, you will be informed (using the network) that appropriate 
changes need to be made, and you will be asked to make them in pen on 
your copy of the curriculum# 
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CONTENT SUMMAFJY 



• 

The content of each part of the book is sunnarized 
below* For More detailed infornation about objectives and 
activities in the nodule see the individual nodule cover 
sheet ♦ 



INTRODUCTION 

Curriculum Overview 

Getting Started' - The first days of canp* 

Software canpers are required to use 

"Personal" Documentation - The "getting to know you" 
progran 



MODULE! 1-1 - Review of Sinple Progranning* Atari Editing 

Review of edit features* control graphics and sinple 
E2ASIC progranning* Lessons include* 

Editing T ext 

Innediate Mode and Control Graphics 

Editing Prograns 

Operators 

LPRINT 

POSITION 

Should be used to help canpers with sone experience 
learn to use the Atari keyboard and editing features* 



MOE)UL E 12 - Graphics and Sound 

Introduction to graphics and sound capabilities of the 
Atari. Lessons include} 

GRAPHICS 0*1*2 

GRAPHICS 3-8 

SETCOLOR 

COLOR 

SOUND 

It is inportant that canpers be faniliar with the content of 
each of these lessons* since later progranning builds on what 
is presented in this nodule. 
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MOD UL E *3 - Variables 

Using nuneric and string variables in prograns. 
Stresses understanding the concept of a variable. Lessons 
include * 

Variables 
LET 
INF : 'UT 
RND & INT 

The RND and INT functions are used in subsequent nodules, 
thus it is inportant to do the activities in that lesson. 



MODULE IT - Loops 

In order to conplete the activities in this Module, 
canpers Must be faMiliar with variables. Lessons include. 

FOR. .NEXT 
FOR. .NEXT. .STEF- 
NESTED LOOPS 
GOTO 

The activity in the GOTO lesson would be of interest to Most 
canpers even though they Might already understand GOTO. 



MODULE 15 - Subroutines and Structured F'rograMMing 

CaMpers use subroutines to produce a story containing 
text, graphics, and sound effects. Structured prograMMing is 
eMphasized. Lessons include! 

Subroutines, An Introduction 
Practice Using Subroutines 
Graphics Subroutines 
Sound Subroutines 
Writing a F'rogran 

i 

It is hoped that as Many canpers as possible will finish the 
curriculum at least through this module ♦ Read it thoroughly 
and note what needs to be taught before you begin ♦ Then use 
that information to select and prioritize activities from the 
previous modules* (In some cases, it will not be possible 
for campers to finish the module* Use your discretion in 
pacing with different individuals*) 
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MOD ULE 1.6 - Conditionals 

Covers the use of conditionals for program control and 
branching. Campers must be familiar with variables and 
looping before beginning this module. Lessons include! 

IF. .THEN with Numeric variables 

IF..THEIN with Strings 
OFi arid AND 
Using a Joystick 
F'addle Controllers 

The IF.. THEN with strings includes a program that deals with 
famous names in computing. 



MODULE 17 - Individual Project 

Campers learn to produce a "computer show" with 
animation using PAINT > PLAYER MAKER . and utility programs on 
the E3ASIC UTILITY DISKETTE. It takes a long time to finish 
the activities in the module. Some knowledge of BASIC is 
necessary, but with direction, campers could begin work on 
very early in the session. 



APPENDICES 

APPENDIX A - Programs on the? BASIC Utility Diskette 
APPENDIX B - Error messages 
APPENDIX C - Basic reserved words 
APPENDIX D - AT ASCII Character Set 
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Getting Started 



For those canpers who have never used an Atari cohputer> 
or Maybe never used a disk drive* you will need to present a 
basic introduction to the handling of equipnent and 
diskettes* A review of this topic May be in order for Most 
everyone* Once this is done* any of the following activities 
May be done at the beginning of canp in whatever order you 
like* (Also see BASIC curriculun* Module 1* and PILOT 
curr iculuM* ) 

< . x 

1* Canpers should take turns playing one of the typing gsnes 
available at csmp ♦ Both MASTER TYPE and TYPO ATTACK were 
sent in large quantities. This activity does not require an 
instructor's presence* but will require an introduction* and 
thus you May wish to use it as a "side attraction" while 
other activities are in progress* 

' ■ . : , , 

2* Get the canpers to run the PERSONAL progran so that they 
Might get acquainted with each other* This progran can be 
found on the BASIC UTILITY DISKETTE* Instructions are 
included in this packet* 

- » 

3* Teach canpers (those who don't already know) how to 
fornat and write DOS to a blank diskette* They will need to 
do this before you can continue with the curriculun* 

4 . Show canpers the library setup and explain the checkout 
systen* Pass out the library cards* Stuff binders* 

5* Give canpers an early initial experience with the BANK 
STREET WRITER word processor so that they can begin to write 
letters hone* 



Other software that canpers should get exposed to 
sonetine during their stay at canp (during the teaching 
assistant workshops on Tuesdays) include the following? 

PAINT 

Hone Filing Manager 
Factory 

Odell Lake (Elerientary Biology) 

Magic Melody Box 
An Adventure gane 



Other itens of interest for canpers to be exposed to include* 
Topo Robot 

Alien Voice Synthesizer 
Four Color Plotter 

The canera for taking screen pictures* 






INSTRUCTORS' INSTRUCTIONS FOR "PERSONAL" 



Personal :1s actually three programs in one* Instructors will 
only use the second of these three to dunp the campers data 
onto the Main data disk and to load a randon record for the 
MYSTERY PERSON program* Campers will use the other two to 
enter data and to search for their random person off of the 
wain data disk* 



RUNNING THE PERSONAL PROGRAM - 

1* Make sure the caMpers' coMputers and disk drives are all 
turned off* 

2* Have theM insert the ATARI BASIC Language Cartridge into 
the left-hand cartridge slot in the coMputer ♦ 

3* CaMpers should now turn on their disk drives* When the 
busy light goes out* have theM open the disk drive door and 
insert the prograM diskette* with the label in the lower 
right-hand corner nearest theM* 

^* Have the caMpers turn their coMputers and T*U* sets on* 

5* When the READY proMpt appears on their T*U* screens* the 
> caMpers should type RUN "D ♦ PERSONAL" and press the RETURN 
key* The prograM will then load into computer MeMory and 
start ♦ 

6* The caMpers can now use the "PERSONAL" prograM by 
answering all of the questions with the appropriate answer* 
until the screen that says "THE END" appears* 



USING THE DATA DUMP ROUTINE 

1* After the caMpers have finished entering their data they 
will be instructed by the prograM to report to the instructor 
for an introduction to somo new piece of software or 
hardware* 

2* All of the coMputer screens should now read "THE END"* 

3* To start duMping the data for the rooM onto the Main data 
disk* press the control and 's' keys at the sane tine* 

^* You will be prompted to insert the data disk and press 
return twice* The progran will then dunp the canpers data to 
the Main data disk* 

5* When "Finished" appears on the screen and the busy light 
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goes out remove 



the date disk fron the drive* 



6. Repeat steps 3*^* and 5 until finished with the roon* 

7* When you are finished with the roon* press the control and 
' e ' keys at the sane tine* You will be pronpted to insert 
the data disk and press RETURN twice* 

8* Repeat step 7 until finished with the roon* 



USING MYSTERY PERSON 

1* The first thing the canper should see is the MYSTERY 
PERSON title followed by the words "PRESS START"* To 
continue forn here the canper nust press the start button* 

2* The MYSTERY PERSON progran will then begin by giving each 
canper his/her first clue* 

3* When they think they have guessed the nystery person the 
canper should enter the nystery persons nane and type RETURN* 

4* At this point the progran will either let the next canper 
guess who their nystery person is or it will congratulate 
then on their correct guess* 

5* If after ten clues the canper s have not guessed who thier 
nystery person is* the progran will print thier nane followed 
by their suspect's nane* After a short tine a new screen 
saying MYSTERY PERSON will appear* 

6* Because sone canpers nay finish before others* you nay 
wish to have then play MYSTERY PERSON again by first 
inserting the data disk* then by pressing the control and 'c' 
keys at the sane tine* The conputer will choose another 
nystery person off of the data disk. 

7* To stop the progran just have the canpers turn the 
conputers off* 
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HOW TO USE DATABASE 



INTRODUCTION 



DATABASE is a prograM that allows you to search the Main 
disk database that was created with the PERSONAL prograM. 

With DATABASE you can either search the disks database or you 
can list it* 

SEARCH DATABASE 

1* Select SEARCH DATABASE fron the MAIN MENU* 

2* You should now be in the SEARCH DATABASE Menu* 

3* Position the cursor with the arrow keys* next to the 
headings you would like to search through. 

Now type the asterisk '#' to tell the conputer that this 
is one of the headings that is to search for* 

5. Repeat steps 3 and 4 until you have finished Making all of 
your selections. 

6* At this point you May either continue by pressing the 
START button* or return to the MAIN MENU by pressing OPTION* 

7* If you press START* the conputer will ask you to enter the 
headings it is to search for* and then to type return. 

8. After you type return you will be asked if you want the 
conputer to search for your heading or everything but your 
heading. What this Means is if you choose to have the 
conputer search for your heading it will do just that* search 
for your heading. If you choose for the conputer to search 
for everything but your heading, it will search through the 
database and only look for the infornation that doesn't Match 
your heading* 

9* The conputer will repeat step 8 until you have entered all 
the infornation for the headings that you selected fron steps 
3 and 4* 

10* The last Menu will ask you if you would like to have the 
people who fit your description* printed out on the printer. 
Choose either print Or don't print with the arrow keys and 
then press the START button to continue* 

11* You should now see your description followed by the 
people who natch it fron the database* 
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LIST DATABASE 



1. Select LIST DATABASE froM the MAIN MENU ♦ 

2. You will see 3 Menu that looks sinilar to the Menu for 
SEARCH DATABASE. The difference between the two is that this 
Menu only allows you to Make one heading choice. 

3. Choose one of the headings. This heading will be what the 
coMputer will search through later in the progran. 

The next screen lets you choose between one of the 
following. 1. Having the coMputer search the database for a 
single letter /nuMber ♦ 2. Having the coMputer search the 

database between two letter s/nuMber s ♦ 

5. Enter the letters or nunber s in the next section. If you 
want to erase your entry press the space-bar. 

6. Next the coMputer will ask you if you want the inf or Mat ion 
printed out on the printer. You May Make your choice by 
first Moving the cursor with the arrow keys then by pressing 
the start button to continue. 

7. The coMputer will now search the database through the 
heading you chose in step 3. It will look for a Match froM 
the entry you Made in step 5. If it finds a Match it will 
list that person's infornation on either the printer^ the 
screen# or both# depending on what you chose in step 6. 



( 2 > 



HOW TO USE DATALINK 



DATALINK is a program that was created to join the Many 
classroom database's into one wain camp database* 

1* To get started you will need two drives* the disks with 
the classroom database on them* and the DATABASE/DATALINK 
program disk which will be used to store the main database* 

2* To run the DATALINK program* insert the DATABASE/DATALINK 
disk into drive #1* Now type RUN "D ♦ DATALINK” then RETURN* 

3* Remove the DATABASE/DATALINK disk fron the disk drive and 
place the classroom database disk into drive #1* then press 
return* If the file CAMPER*DAT isn't on the disk the prompt 
"Insert the classroom database into drive #1" will repeat* 

^ ♦ Now put the DATABASE/DATALINK disk that will hold the main 
database into drive #2 and press return* If there isn't a 
CAMPER*DAT file on this disk* the program will create its 
own ♦ 

5* The program will now transfer the CAMPER*DAT file from 
drive *1 to drive $2* 

6* Next the prompt "Would you like to add another classrooms 
data (Y/N)" will appear* If you wish to stop now type 'N'* 

If you have more data to store in the main database then type 
'Y'* The program will then repeat steps 2 through 5 until 
you have finished* 



DATABASE STRUCTURE 



L j 



The fallowing is 3 brief explanation on how the 
database# "CAMPER ♦ DAT' 1 is structured ♦ 



CAMPER ♦ DAT is 3 simple database* It is not alphabetized 
or indexed* It contains the information which was entered 
with the PERSONAL program in the same format* What this 
means is that the information for each person on the disk is 
arranged in the same way as it was entered* With the persons 
name first followed by there address# city* state# etc* ♦ ♦ 

This continues until you run out of data* 

Database format 

Name 

Address 

City 

State 

Zip 

Age 

Hair color 
Eye color 
Sex 

Favorite color 
Favorite singing group 
Favorite song 
Favorite movie 
Favorite T*V* show 
Favorite food 
Favorite sport 
Favorite game 
Favorite animal 

The following is a program that will allow you to list the 
database ♦ 

10 REM ***LIST DATAEiASE*** 

20 DIM TEMP* ( 30 ) ♦ REM Each record is 30 characters long 
30 OPEN *1,^,0, "D:CAMPER*DAT ,i :REM Open file for input 
^0 TRAP 80 

^5 REM Print database 

50 INPUT *1? TEMP*: REM Input record 

60 PRINT TEMP*: REM Print record 

70 GOTO 5Q :REM Repeat until end of file 

80 CLOSE *i:END:REM Close file 










} 





2. Jnsert the ATARI BASIC Language Cartridge into the left-hand 
cartridge slot in your computer. 

3 - T ur n on your disk drive. 

* 

4. When the busy light goes out, open the disk drive door and insert 
the program diskette with the label in the lower right-hand corner 
nearest to you. Close the door. 

'€ \ • 

5. Turn on your computer and T.V. set. 

. . 6. .When the READY prompt displays on your T.V. screen, type RUN " D : PERSONAL " 

then press the RETURN key. The program will then load into computer 
n i e m o r y a n d start. 

7. Answer all questions with the appropriate answer. 



8. When you have reached the screen that says, "THE END", leave 
the computer on and report to your instructor. 



USING MYSTERY PERSON 

i >* *, 

. 

1. The first thing you should see is the MYSTERY PERSON title followed 
by the words "PRESS START”. To continue from here press the start 
button . 

- 7 1 

2. The MYSTERY PERSON program will then begin by giving you the 
first clue. 

3. When you think you have guessed your mystery person enter their 
name and type RETURN. 

4. At this point the program will either let the next camper guess 
who their mystery person is or it will congratulate you on your 
correc t guess. 

5. If after ten clues you have not guessed who your mystery person 
is, the program will end by printing your name followed by your 
suspe c t •" s n a m e . 




instructor's INSTRUCTIONS FOR '‘PERSONAL" 



Personal is actually three? programs in one. Instructors will only 
use the second of these three to dump the campers data onto the 
main data disk and to load a random record -for the MYSTERY PERSON 
program. Campers will use the other two to enter data and to search 
for their random person off of the main data disk. 

v 

• .. . , .. ' . . 

USING THE DATA DUMP ROUTINE 

1. The campers will first load and run the personal program. 

2- After the campers have finished entering their data they will 
be instructed by the program to report to the instructor for an 
introduction to some new piece of software or hardware, 

3. All of the computer screens should now read "THE END". 

4. To start dumping the data for the room onto the main data disk, 
press the START and SELECT buttons at the same time. 

5. You will be prompted to insert the data disk and press return 
twice. The program will them dump the campers data to the main data 
disk. 

6. When "Finished" appears on the screen and the busy light goes 
out remove the data disk from the drive. 

7. Repeat steps 4,5 and 6 until finished with the room. 

8. When you are finished with the room, reinsert the data disk into 
each drive and press return twice. This> will randomly pick one of 
the records off of the main data disk for the campers to use with 
the MYSTERY PERSON program. 

step 8 until finished with the room. 



9. Repeat 




MODULE *1 



REVIEW OF EDIT FEATURES , CONTROL GRAPHICS , 
AND SIMPLE BASIC PROGRAMMING 



OBJECTIVE 

To review the following topics? 

Editing Text 

iMMediate Mode and Control Graphics 

Editing PrograMS 

Sinple E:ASIC Programing 



MATERIALS REQUIRED 

BASIC Cartridge 

BASIC Utility Disk? PRINTS 

Formatted Disk for each caMper (This disk should 
also have DOS files*) 

Graph Paper 

Control Graphics Cards (or duplicated sheets) 

REFERENCES - - 

Inside Atar i Basic , pp* 8-39 

Your Atari CoMPutir' * pp* 20-25, 38, 42-58 

Atari 40 0/80 0 E'.asic Reference Manual , 

- pp* 5-6, 9-10, 13-14 



CONTENT 

The nodule is divided into seven lessons* Be selective 
in your use of the activities* There are Many More than can 
be done in the tine that you have available* 

Lesson 1_ - Editing T ext 

Pages 1-7 

Covers special keys on the Atari keyboard* 

Short selections to copy and edit* Includes 
a chart of keyboard editing features* 
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Lesson 



r> 



Immediate Mode and Control Graphics 



Pages 8-13 

New Statements 
PRINT 

Materials 

BASIC Cartridge 

Familiarizes students with control graphics 
characters* printing strings* and numeric 
operations and precedence 



Lesson 3 - Editing Programs 

Pages 14-19 

New Statements 

NEW RUN SAVE LOAD LIST 

Materials 

BASIC Utility Disk 
BASIC Cartridge 
Graph Paper 

Allows students to practice using editing 
features covered in previous lessons* 
Reviews use of commands* 



Lesson 3. ~ Editing F'rogr ams-F'art II 

Pages 20-2^ 

New Statements 
REM END 

Materials 

BASIC Cartridge 

Reviews simple BASIC programs* Editing lines* 
changing line numbers* number of screen lines 
for each print statement* listing parts of 
programs ♦ 
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Lesson 5 - Operators 

Pages 25-27 

Materials 

BASIC Cartridge 

Reviews use of semicolon, comm 3» and colon 

in BASIC programming. 

Lesson 6 - LPRINT 

Pages 28-30 

New Statenerit 
LPRINT 

Materials 

BASIC Cartridge 

Reviews use of LPRINT ♦ 

Lesson 7 - POSITION ^ 

Pages 31-32 

New Statenerit 

POSITION (POS.) 

Materials 

BASIC Cartridge 
Graph Paper 

Reviews use of POSITION in Graphics 0. 
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Bel sel ecti ve;, this module: is not me: ant to be used in 

ITS ENTIRETY ! It would be best if you bee awe familiar with 
its parts* so that you can choose tasks appropriate for your 
group or i nd i v idua 1 s ♦ 

Each lesson contains several types of Material* Next to 
the p a g e n u m b e r at t h e b otto m o f each pa g e is a c: o d e w h i c h is 
design e d t o h e Ip y o u f i n d a p p r o p r i a t e Material q u i c k 1 y ♦ 



LF : ' - A Lesson Plan page* This could be directions 
for the? teacher or aide, or a student 
worksheet necessary for a lesson* 



I A - Individual Activity* An activity for a 
student who needs review or practice, 
but does not need a for Mai lesson* 



T 



- Indicates that this 
as a Transparency* 



P a g e is also a v a i 1 a b 1 e 



C ~ C h a r t ♦ These are pa g e s t h a t w i 1 1 b e 

useful for More than the? lesson in which 
they are introduced* 



CONTENT 



so 



The 
long , 



m o d u 1 e is d i v i d e d i n to s e v e n 1 e s s o n s ♦ B e? c a u s e it is 
the content of each lesson is dealt with separately* 



L e s s o n 1_ - E: d 1 1 i n g Tjsxt 
Pages 1-7 



Covers special keys 
S h o r t select! o n s t o 
a c h a r t o f k e y b o a r d 



on the? Atari keyboard* 
copy and edit* Includes 
e d i t i n g 'feat u r e s * 



L e s s o n 




iMMedi a te Mode. 



and. C o n t r o 1 G r a p h i c s 



P ages 3 - 1 3 

New S t a t e m e n t s 
PRINT 



M a t e r i a 1 s 

B A 8 1 C C a r t r i d g e 



F r aM i 1 i ar i ies students with control graphics 
characters, printing strings, and nuMeric 
o p e r a t i o n s a n d prece d e n c e ♦ 
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L e s s o n 3 




- Edit ing Prog rans 

P ages 1 ^ - 1 9 

N e w S t atenen t s 

NEW RUN SAVE LOAD LIST 

Mater i a Is 

BASIC Utility Disk 
B ASIC Cartridge 
G r a p h P a p e r 

Allows s t u d ents to practice « j s i n g e d i t i ri g 
feat u r e s c o v © r e d i ft previous lesson s ♦ 

Reviews use of coMMands and how to add and 
delete liries from programs* Emphasizes 
necessity to press return after editing a line in 
3 program ♦ 

Less on ± - El d it i ng Pr og r am s-Pa r t I!I 

P a g e s 2 0 - 2 T 

New S t a t e m e n t s 
REM END 



Materials 

BASIC Cartridge 

Reviews simple BASIC programs ♦ Eiditing lines, 
c h a n g i n g 1 i n e n u m b era , ri u m b r o f s cree n 1 i n e s 
for each print statement, listing parts of 
P r o g r a m s ♦ 

L . e s s o n 5 ~ 0 p e r a t o r s 
Pages 25-27 



Materials 

BASIC Car tr idge 

Reviews use of "J", " J " , and “, M in BASIC 

prog r a m m i n g ♦ 




Cop y r i g h 1 Atari , 



I n c ♦ , 



1933 ♦ 
i i i 



A 11 r i g h t s res e r v © d ♦ 



«n! 



LPRINT 



on 6 “ 

Pages 28-30 

N g w Staten e n t 
LPRINT 



Materials 

BASIC Cartridge 

Reviews use of LPRINT ♦ 



Lessor. 7 - POSITION 



Pages 31-32 



New Staten e n t 

POSITION (PCS* ) 



hat e rial s 

Ei! ASIC Cartridge 
G r a p h F : ’ a p e r 



F\ e v i e w s u s e o f P 0 S I T I ON i n Q r a p ft :L c s 0 



C o p r i g h t 



1933 ♦ 
i v 



r i g h t s 



A t a r i t 



Ir.c * * 



A 1 1 



r e s e r v e d * 



r be: x t 



e: o* x *t :i: m g 



An individual worksheet called "PRACTICE EDITING TEXT" 
a r« d a c: o r r e c 't :i o n g u i d e arc a v a :i 1 a b 1 e f or camper s w hi o n a e d 
practice* but do not need a fornal lesson* 



A ctivi ty # 1 



If cafipers are not fan i liar 
they should be introduced to the 
b e f o r e 3 1 1 e n p t i n 9 . t h i s e x e r c i s e ♦ 



wit hi t hi e A t a r i k e y b o a r d * 
f oil o w i n 9 e d i t i n 9 f e a t u r & s 



C a p s / L o w r 

C t r 1 - ( w i t hi arrows) 

[) e 1 e t e E:*. <a c k 8 
S hi i f t - D e 1 e t e E: a c k S 
Ctrl -Delete Back S 
Ctr 1 -Insert 

A u t o n 3 1 i e r epea t f eatur e 
Inverse video 
Zero vs* M 0 n 
Ctr 1 -Cl ear 



EDITING 
d e s i g n e d 



A sunnary of the keystrokes called "KEYBOARD 
FEiATUREIS" is included with the worksheets* It is 
be used as a reference for campers who have sone knowledge 
Atari text editing* so that they can conplete the exercise 
their own if necessary* It nay also be used by beginners 
3 f t e r a ri initial 1 e s s o n hi a s b e e n p r e s e n t e d h y t hi e t e a c hi e T' 
a i d e ♦ 



to 
o f 
on 



or 



A c t i v i t y #2 



E:’-e sure canpers have renoved the Atari E>asic cartridge 
3 n d ar e i n t hi e A t a r i Me n o F : ’ a d n o d e ♦ T h e y s hi o u 1 d c a p y t hi e 
f i r s t p a r a 9 . r a p hi f r on t hi e s t u d e n t w o r k sheet u s i n g t hi e n e n o 
pad* Instruct csfipers to copy the paragraph exactly as it 
wr itten * even though there are Mistakes* Since the purpose 
the exercise is to practice editing text* they need not 
correct typing errors until they enter the editing stage* 

The intentional ni stakes in the text are underlined* They 
are g i v e n t hi e p a r a g r a p hi i n t h e c o r r e c: t f o r n t o u s e w hi e n 
e d i t i n g ♦ The idea is to u s; e as f e w k e y s t r o k e s as p a s s i b 1 e t c 
n 3 k e the corrections* It w o u 1 d b e nos t b e n e f i c i 3 1 if y o u 
guided then through t hi e actual editing* You night want to 
use the "CORRECTION GUIDE:" that acconpanies the individual 
w o r k s hi e e t f o r i d e a s a b o u t h o w t o appro a? c hi i nstr u c t i o n s f o r 
c o r r e c t i o n s ♦ 



1 s 
of 



A t r a ri s; p a r e n c y a n d in d i v i d u a 1 e 3 n p e r 
( called "PRACTICE EDITING" ) are available 



c o p i e s o f t hi e 1 0 x t 
f o r t hi i s e x ere is e ♦ 



c 

Copyright Atari* Inc** 
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PARAGRAPH ftl 



e: o x 'T* x M ic: 



•v 



IF- Fc A C T :x: C E 



First identified by indian 
tribes More than a centry ago#. 

E‘« i g f o a t h a s b a f f f led t h o u s a n d s 
of investigators, who have attempted 
to track h i m down* Many scientists. 



i n fact, s k e p t i e l_a a b o u t t h e 
a n i m a 1 ' s e x i s t e n c e , a r g u i n g t h a t 
a n A m e r i c a n P r i m a t e e x i s t e d , a 
live s p e c i m e n wo u 1 d h a v e b e e n 
d i s c o v e r e d d i s c over e d b y n o w * 



if 



X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 



N o t e t h a t the w o r d , 



“re m a i n" , m u s t b e i n s e r t e d a s p a r t o f t hi e 



exerc i se * 



X X X X X X X X X X X X X X X X X X X X X X X X. X X. X. X. X X. X. X X. X. X X. X X X X X. X X X X X X X X X X X. .X X X X X X X X 



CORRECT PARAGRAPH 



Firs t i d e n t i f i e d b y I ri d i a n 
tribe s More t h a n a c e n t u r y 
ago, E".‘> i g f o o t h a s b a f f 1 e d 
thousands of investigator s , who have 
a 1 1 e m p t e d t o t r a c k h i m d o vg n * M <a ri y 
scientists, in fact, reMain 
s k e p t i c a 1 a b out t h e a n i m a 1 ' s 
existence, arguing that if an 
American priMate existed, a live 
specinen would have been discovered 
by now* 



Inc ♦ , 



1983 * 
T2LP 



A 1 1 r i g h t s 



C o p y r i g h t A t a r i , 



reserved* 



F- R: A» O T :i: G IE 



e: d x t x m it:;; 



t e: x i' 



E ; 0 s i j r e y o u <3 r e i ri t he A 1 3 r i Memo F* a d M o d e ♦ That c a n b 
accomplished by removing the BASIC cartridge or by typing 
"EisYE" if you are in BASIC ♦ Copy the following text exactly 
a <a i t i s 
f i n i s h e d 
that are 
You will 






w r i 1 1 e n ♦ Y o » j w i 1 1 m a k e corr e c t i o n s aft e r y o u n a v e 
typing the whole section ♦ The letters and words 
underlined show you what changes need to be made* 
t y p e t hem as r e g u 1 a t' 1 e 1 1 e r s o r w o r d s * w i t h o u t the 



u n d e r 1 i n i n g * The 



?.< 



Shows 



You should leave out the 



/ V 






w © re a w o r d h a s b e e n o mitt e d * 
w h e n y o u m a k e c o r r e c t i o n s * 



Color Register- — The xpecif ic 
location in and computers memory 
that stores the colro you tell it to* 
pEElK — A E'«ASIC comnand that tells 
t h i e comp u ter to loo k i n t o a speci f i c 
location in the computer's memory 
and see what wh at is stored there* 
POKE— A * command that tells 
the computer to put a new number into 
a specific location in the computer's 
memo r y ♦ 



N o w y o u are ready to c o r r e c t t h e p a r a g r a p h * 
g u i d e o n t h © ft e x t p a g e t o m a k e the corre c t i o n s * 



Use the 
T h e idea 



i 



-.3- 



to help you learn to use as few keystrokes 



O 



P o s s i to 1 e t s o 



you should not retype whole lines to correct mistakes* The 
corrected version below should help you to check your final 
copy ♦ 



CORRECTED VERSION 



C o 1 o r Register--! h e s p e c i f i c 
1 o c a t i o n i n t h e comp « j t e r x s m e m o r y 
t h a 1 stores the c o 1 o r y o «j t e 1 1 i t t o * 
PEEK — A BASIC command that tells 
the computer to look into a specific 
location in the computer's memory 
a n d s e e w h a t i s stored there* 

POKE — A BASIC command that tells 
the computer to put a new number into 



a s p e c i f i c 1 o c a t i o n 
memory * 



in the computer's 



A 1 1 



r i ghts 



res e r v e d * 
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c o ir Fv: r£: o r :r. o m g u or: d* if: 

F □ F'v "PRACTICE EDITING TEXT" 



- zpecific 



F : * 0 s i t i 0 ri 


the 


c u r s 0 r over 


the 


—v 


Type am "s" ♦ 


- ar^d 












P os i t i 0 n 


the 


c « j r s 0 r 0 v e r 


the 


a * 


Type "the" > 


- c 0 m p u t e r s 












F : ‘ 0 s i t :i 0 n 


t ft e 


c u r s 0 r 0 v e r 


t ft e 


s ♦ 


Use CTRL-INSERT to 


q e t a s p a e e ♦ 


Type SHIFT- 


-7 to 


q €? t t ft e 1 ‘ ' " n a) r V. * 


- col ro_ 










' 


F : ’ 0 s i t :i 0 n 


the 


c ij rso r 0 v e r 


the 


T' * 


Type "or" ♦ 


- p_EEK 












F : ’ os i t i on 


t h e 


c 1 j r s 0 r 0 v e r 


the 


P ♦ 


P r e s s S H I F T - p to 


qet a capital 


F : ’ * 








- com n a n d 












F : ’ 0 s i t i 0 n 


the 


c « j r s 0 r 0 v e r 


t h e 


f! ■> 


T y p e a n " m " * 


- conputerl 


' s 










P □ s i t i 0 n 


t l*i e 


cur s or over 


the 


1 1 / 


‘ 1 that is ij ri d e r 1 L :L n e d 



Press CTRL -DELETE BACK S* 

- what 

f : ' o s :L t :L o ri t h e e u r s o r t a t ft e r i <5 h t o f t h £ t ♦ F : ‘ r © s s 

G T R L ~ D El L E T E EF A C K S u n t i 1 t ft e w h o 1 e w o r d ft\ a s 

b £ e ri e r a s e d ♦ 

x '*■ A T THIS POINT THE OMITTED WORD SHOULD BE INSERTED 

P o s :L t :i o ri t ft e c u r s o r o v e r the “ c " i n t h e w o rd M c o m m 3 n d 1 ' * 

F : ’ r e s s C T R L - 1 N S El R T a n e t i m e f o r e a c h 1 0 1 1 e t- 

a n d s p a c 0 t o b e i n a e r ted ( 6 ) ♦ Type t h 0 w o r d * 

"BASIC " ♦ Be sure 1 to leave? a space after the word* 
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H I A 



SELECTED SINGLE KEYPRESSES 



keystroke: 



CHARACTER OR ACTION 



SYSTEM RESET 
RETURN 
BREAK 
CAPS/LOW R 
THE J IV. KEY 
TAB 

DELETE BACK S 



S t o p si e very t h i n 9 ♦ USE. C AJJTIjDNJ__ 

S i 9 n 3 1 <5 1 :i ri 0 i s f inis h e d 
I ri t e r r u p t s sn d h 3 1 t s ♦ USE. C fill 1 1 O.N \ 
Chances to lower case letters 
I ri v e rse v i d 00 switch 
M o v 0 a t o n ext tab stop 
Character left of cursor erased,, 
cursor backs up one space 



SELECTED SHIFT KEY EFFECTS 



keystroke: 



CHARACTER OR ACTION 



SHIFT-TAB 
SHIFT -Clear 
SHI FT -Insert 
SHIFT -CAPS /LG HR 
SHIFT-DELETE 
BACK S 



S 0 1 t a b s t o p 
Clear d i s p 1 ay sc r 0 0 n 
Insert blank line 
Switch keyboard to upper 

Del e t e curr 0 n t 1 i r 1 0 



- c a se 



SELECTED CTRL KEY COMBINATIONS 



K E Y S T R 0 K E 



CHARACTER OR ACTION 



CTRL-T AB 
CTRL- T 
CTRL- ^ 

CTRL- ^ 

CTRL- 
CTRL -1 
CTRL-C 1 ear 
CTRL-Inser t 
CTRL-CAPS/LOWR 
CTRL-DELETE 
BACK S 



Clear tab stop 
Cursor up a line 
C: u r s o r do w n a 1 i ri 0 
C u r si o r 1 e f t o n e s pace 
C u rsor right o n e spa c 0 
Stop/star t printi ri 9 o r*i s c r 0 0 n 
Clear ecreen 
I n serb a space 

Switch keyboard to 9 r a p h i c s node 
D e 1 e t e (c h a r a c t e r u n d 0 r c u r s o r 



C o p y t x :L <2 h t Atari, 



1983 ♦ 
5 C 



Inc* , 



All rights 



r e s 0 r v e d * 



m m m r£ o :e a t- mz m o o e: 

a. m o 

c o ih4 nr r o l. o r a* f- m :e c s 



These activities should be a review for Most of the 
campers in the group* After evaluating the level of your 
students, you Might decide that a group discussion/review is 
not necessary* In that case, the worksheets May be? u sea for 
individual activities, or eliminated if appropriate* 
Duplicates of the control graphics keyboard are available for 
this lesson* 

Act ivity i\ l (Do this activity in the Msmo Pad Mode*) 

LJ si e t he c o n t r o 1 k e y with the appropriate g r a p h i c is k e y is 
to review the symbols* Rom i n d campers that t h e 
CTRL-CAPS/LOWR coMbi nation locks the keyboard into the 
g raphic s c h a r a c t e r Mode* E ri e o u r a g e as m u c h e x ploration as 
possible, iso that a familiarity with the symbols has been 
developed* The control graphics will be u s e d in later 
p r o g r a m m i n g activities* D u p 1 i c a t e s of the c o n t r o 1 graphics 
keyboard are available for this lesson* 

Campers should complete at least the following 
explorations l 



1 ♦ F r i n d e a c h of t h e? k. e? y s t h a t i s u s e d f o r c o n t r o 1 
g r a p h i c s ♦ 

2 ♦ hake a repeated pa 1 1 e r n u sing a com b i n a t ion 
of t w o or More k e y s ♦ 

3* hake a picture using any coMbi nation of keys* 



Two worksheets < "EXPLORE: CONTROL GRAPHICS" and "CREATE 
WITH CONTROL GRAPHICS") are available for those campers who 
have experimented with control graphics* Both are designed 
to be used as individual activities* 



A ctiv ity #2 

Be s u r a t h e A ta r i B A S I C c art r i. d g e is ar e-? i_n P 1 see before 
you. b e? g 1 n t h is ac t iv i t y ♦ 

C a m p e r s s h o u Id use the comp u ter to try each of the? pri n t 
statements on the page called “PRINT STATEMENTS’* * A 
transparency is available, as are printed copies* It is 
important that this be a dire c ted lesson, s i n c e c a m p e r s m i g h t 
miss the point of doing the exercise if they Merely type? in 
the information* The items on the list 3 r e c h o s e n t o p rovi d e 
a review of p r i n t i n g c h a r a c t e r s a n d o f pre c e d e ri c e? i n 
a r i t h m e tic o p orations* It m a y b e ri e c e s s a r y to do more t h a n 
o n e e x ample to ill u strata a poi n t ♦ 



Copyright Atari, I n c ♦ , 



1983 * 
6LP 



All rights reserved* 




! IK 
























k 



. | i 

‘ 1 

•* . , -’.--nr 


iu; 

cy 




1 








•- 


fCp 


( i - 







PRINTED IN U.SA 



Control Graphics Keyboard 






















F" Ft :i: m ir 



stat e: m e: m t s 



PRINT 


"4 + 4" 


PRINT 


"4 + 4" 


PRINT 


4 + 4 


PRINT 


4-4 


PRINT 


4*4 


PRINT 


4/4 


PRINT 


4 + 3*2 


PRINT 


4+(3*2) 


PRINT 


(4+3) *2 


PRINT 


24/2+6 


PRINT 


24/ < 2+6) 


PRINT- 


24-8+3-16 


PRINT 


3+16-70 


PRINT 


12/4*6-3*5+2 


P R I N T 


12/4* < 6-3 >* (5+2) 


PRINT 


< 2+4+5 )*< 12/4 )+l 


PRINT 


"I'M GREAT!" 



C o p y r :L <2 h t A t s r i > I n c ♦ f 1 ? 8 3 ♦ All rights 

T8LP 



r e «> e r v e d * 




E X F" L_ CD R E CD CD ! T FC CD L. G R A F" HI 'X C S 




Directions 

1 ♦ Be sure? you are in the? mcmo pad node before 
you begin ♦ 

2* Lock the keyboard in the graphics character node 
by using the CTRL-CAPS/LOWR conbinst ion ♦ 

In order to use the characters on the 
" , " f " ♦ M f and “ J " keys, you nust use the CTRL 
key* The remainder of the keys will sutonst ical ly 
put the graphics characters on the screen* 

3* Follow the directions for each challenge* 

Challen ges 

1* Substitute letters for the control graphics 
characters to decode the following Message* 

The first word is done for you* 



f \* 9 +*& S *{»£• ► • ® A 

The 

2* Use these keys* 

* T F G N 





To n a k e X 



Use these keys* 

F G * V B 

To nake* 



Q R 
To n a k e l 



o o o 

0 o o 

0 \ / o 

0 A o 

<>0 6 



M 




and (Shift = ) 




00 0 0 
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c fc ei a nr se w x x m g o m x r o il 



G R F- M X G S 



[) i r 0 c t i o n s 

1* Be sure you are in the msmo pad node before 
you begin ♦ 

2* Lock the keyboard in the graphics character Mode 
by using the CTRL-CAPS/LOWR combination ♦ 

In order to use the characters on the? 

" , M , " ♦ " , and " J " keys, you must use the CTRL 
key* The remainder of the keys will automatically 
put the g r a p h i c s c haracters on the sere e? n * 

3 * F r o 1 1 o w the directions for each challenge* 



C ha 1 1 en g es 

1* Write a coded Message to a friend using the 

control graphics characters* Ask the friend to 
de?code the message* Each character should stand 
for the letter that shares its key* F r or example , 
■$» = M s“, ® = "t", and gi = "a 11 , 

s o Ja Q ~ sat* 



See if you can find the keys used to make each 
of the figures below* When you know how to make each 
figure, combine them to make a picture* Try adding 
a coded message as the n a m e of your picture arid 
see if a friend can decode the message* 




3 ♦ Create y o u r own picture* Use it to write a 
challenge for a n o t h e r camper or for 
your teacher ♦ 



Copyright Atari, Inc*, 



1933 * 
101 A 



All rights reserved* 





X 1\! 3 T Ft LJ O T* HI O ff-4 3 F“ O FC 
D* X c T X O ffs! *3 1-4 O Ft K 3 M £Z IZ 





The itens on this worksheet should be a review of things 
you already know* If you have forgotten any of the 
i n f o r n a t i o n #- the con p u ter can b e you r tea c her ♦ 



DI RECTION S 

1. In the colunn called "OUTPUT PREDICTION'S write what 
you think the computer will 
do when you enter what 

is written in the "INPUT" colunn ♦ 

2* Type in the input and record the conputer's 

results in the colunn called "COMPUTER ' S OUTPUT’S 

3* Check your prediction to see if it was correct ♦ 

^ ♦ If you cannot predict what the results will be, 
use the conputer to help you* Type in the input 
and see what happens* Then enter the results in 
the "COMPUTER ' S OUTPUT" colunn* 



♦ > 



C o p y r i g h t Atari#- 
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PRINT 1005-639 



PRINT 14*6 



PRINT 24/12 



PRINT “16+ 16 



PRINT 6+4*3 



PRINT 6+ (4*3) 



PRINT (6+4) *3 



PRINT 




PRINT 36/ (4+5) 
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EDIT JO iN! O 



F : " R O O R Ph M S3 



A cti v it y i 1 

1 ♦ Type in the program exactly as it is written* There are 7 
stars a n d 16 X ' s o n line 1 0 0 * That i n f o r m a t i o n nay b & useful to 
campers who are having difficulty deciding how to enter the program 
so that the flag “looks right” ♦ The “I” is Made with the SHIFT = 
combination* Make any necessary corrections and the run the program* 
A transparency and camper copies of the flag and the list of commands 
in i : 5 are available* These should not be used without supervision * 
however * 



100 
110 
120 
130 
140 
15 0 
160 
17 0 
180 
190 
200 
210 
220 
230 
24 0 
250 
260 
270 
28 0 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
E N [) 



'**x****xXXXXXXXXXXXXXXX 
1 x x x x X 
•x x x x XXXXXXXXXXXXXXX 
• x x x x X 
•XXXXXXXXXXXXXXXXXXXXXXX 
'X X 
•XXXXXXXXXXXXXXXXXXXXXXX 
•x X 
•XXXXXXXXXXXXXXXXXXXXXXX 



! I 
II 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
It 



2* List the program and make changes if necessary* If no 
changes are required* run it and then go on to *3 ♦ 

3 ♦ Add line 90 to the progrsM a n d run it a g a i n ♦ 

90 PRINT “It's a Grand Old Flag” 



4* Eie sure each camper has a formatted diskette in Drive 1* 
Save using the command SAVE”D ♦ name” ♦ 



5* Review the effect of "NEW”* Remind campers that ’'name 
the name they used in #4* Type the following* 



i s 



NEW 

LIST 

LG AD ” D t name 

LIST 

RUN 

SHIFT-CLEAR 

RUN 

NEW 

LIST 

RUN”D X name” 
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ie ro x r m m o f - r o g f* a m s 

iA t, ± v ±. t:, =#*• X 



100 

110 

120 

130 

1^0 

150 

160 

170 

180 

190 

200 

210 

220 

230 

2^0 

250 

260 

270 

280 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

END 



^xx^xxxXXXXXXXXXXXXXXXX'* 
* * * x X“ 
x x X X XXXXXXXXXXXXXXX" 
x x x x X" 

XXXXXXXXXXXXXXXXXXXXXXX" 
X X M 
XXXXXXXXXXXXXXXXXXXXXXX 11 
X X" 
XXXXXXXXXXXXXXXXXXXXXXX 11 



NEW 

LIST 

L G A D 1 ' D t n a m e " 

LIST 

RUN 

SHIFT-CLEAR 

RUN 

NEW 

LIST 

RUN’^triSMe" 



1983 ♦ 
T14LP 
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e: i:> □: t in ini o f- r o g; r a m s 



Activity ♦ 2 



Canpers will use what they practiced in the text editing and control 
graphics sections ♦ Their challenge is to write a program that will 
s h o w 3 picture o n the screen* The p i c t u r e sho u 1 d b e constr « j c t e d froM 
control graphics characters* Text May or May not be included* This 
is the first exercise that requires planning before using the 
coMputer ♦ It is critical that the importance of planning in probleM 
solving and programming be discussed at this pointy since structured 
programming will be emphasized in later activites* 



1* Use graph paper to design a picture using the control 
graphics characters* A general layout or plan is all that is 
necessary* Some campers May be able to create the picture without 
preplanning* but it is rare that this is done without some 
frustratio n ♦ 



z_ * 



Use the Basic Utilities Disk* Load the prograM called 



“PRINTS' 1 ♦ "PRINTS" is a series of print statements with quotation 
Marks* This program should enable campers to Make their own pictures 
o r 



designs Much More easily* 



3* List the "PRINTS" program and 
IT IS EXTRE MELY IMPOR TA NT THAT CA MPE RS 
IHEY FIN ISH^TaCh" LINE * ’ IF THE Y DO NOT 
I N M E M 0*R Y ! R u n t h e p r a g r a m ♦ 



create a picture or design* 



BE REMINDED TJD PR ESS R E T l J R N AS 
THE ! IP WORK. WILL,. NOT BE STO RED 



^ * When 
save it using 
as the naMe* 



campers are happy with their program^ instruct 
the SAVE"D ♦ name" command* They should not use 



t h e m to 
"PRINTS" 



5 * P r a c t i c e the f o 1 1 o w i n g c: o mma n d s ♦ 

NEW 

RUN"D t name" 

LIST 

NEW 

LIST 

LQAD"D X name" 

6* A chart called "PUN#. SAVE* LOAD* LIST" is availabe for 
review p u rposes* This chart Might be m o s t u seful to caMpers w h o have 
taken the PILOT class* since the commands are different* 



7* Two individual worksheets 
"CREATE BY EDITING PROGRAMS") are 
practice* b u t do not n e e d a f o r m a 1 



("EXPLORE EDITING PROGRAMS" and 
i n c 1 u d e d f or campers who n e e d 
1 e s s o n * 



Copyright Atari* Inc** 



1983 * 
15LP 



A 1 1 r i g h t s rese r v e d ♦ 



R! U M 



s iA m ie: 



L- O iA O 



L. HI S T 



j*- 






#• 



Save to disk 



F*<un program fro« disk 



L o a d f tom d i s k 



List to printer 



P ILO T 

SAVE DtNAME 
CAN'T DO 
LOAD DJNAME 
SAVE p: 



BASIC 

SAVE" D X NAME" 
RUN U C) ♦ NAME" 
LOAD " D ♦ NAME n 

list m p: m 



Copyright Atari f Inc ♦ ? 



1983 * 
1 6 C 



All rights reserved* 



E X F" I - O F* E: Irl D X “1“ X. IN! O F" F< O (Q FC »A M 3 



DIRECTIONS 



!♦ Type in the program below exactly as it is written* 



100 


PRINT 


1 1 




w \ / w 
/ w w % 




1 1 


1 10 


PRINT 


1 1 




v 

4 \ 4 \ 




1 1 


120 


PRINT 


ii 




/ \ 4 \ 




1 1 


130 


PRINT 


1 1 




\.4 W \ / 
4 y 4 \ 4 \ 




1 1 


140 


PRINT 


1 1 




W 
/ % 




1 1 


150 


PRINT 


1 1 




V/ W 

4 \ 4 \ 




1 1 


160 


PRINT 


• i 




N./ W \4 \ 4 \ 4 

4 \ 4 \ 4 \ / \ /*\ 




1 1 


17 0 


PRINT 


1 1 




V/ 
* \ 




1 1 


130 


PRINT 


1 1 




\ / 

/*\ 




1 1 


190 


PRINT 


1 1 




% / 
/ \ 




1 1 


200 


PRINT 


1 1 




'J N,/ 

4 \ / \ 




1 1 


210 


PRINT 


1 1 




V/ \ / 

/ \ /*\ 




1 1 


22 0 


PRINT 


1 1 




/ V 4 \ 




1 1 


230 


PRINT 


1 1 








1 1 


240 


PRINT 


1 1 








1 1 


250 


PRINT 


1 1 


X X 


XXX 


X 


1 1 


260 


PRINT 


1 1 


X X 


X 


X 


1 1 


270 


PRINT 


1 1 


XXX 


X 


X 


1 1 


280 


PRINT 


1 1 


X X 


X 




n 


290 


PRINT 


1 1 


X X 


XXX 


X 


1 1 


Check 


f o r e r r 


o r s 


m a k e 


a n y n e c e 


s s a r y 


c h a ri g e 


and then run 


t h e 


P r a g r a ♦ 







3 * Li s t t he p r o grew* A d d 1 i n e 7 0 a n d r u ri i t a g a i n ♦ 

7 0 REM St i ck f i gur e say i ng ? "Hi!"* 

4 * Li s t the p r o g raw a g a i n a n d a d d t h e f o 1 1 o w i n g 1 i n e s ♦ 



90 PRINT 
95 PRINT 
295 PRINT 



"XX X X X X X X X X X X X X X X X X X X X X X X ‘ ‘ 
"A Self Portrait" 



1 1 



X X X X X X X X X X X X X X X X X X X X X X X X ■ • 



R u n the program* W h a t d i d 1 i ri e s 9 0 ? 9 5 f a n d 295 do ? 



er 

%J ♦ 



Save t he p r o g r a m o n y o > j r d i s k * U s e t h e 

connand S AUE " D t nane " - where / nane / is the nafie you 

give the program* 



Type NEW arid then RUN"D t nafie" 



7* Type NEW and then L0AD"D * nane " * Now try 
to ru n t h e p t s o g T' a m * 



Copy r i g h t A t a r i * I n c ♦ > 
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e R: EZ A T R_ IE: Y E D X T X iM O IF" !R Q G If A M E 





C TIQ NS 

1 ♦ Use the Basic Utility Disk* Load the program 
c a 1 1 e d " P R I NT S " ♦ T h e c o m m a n d t o 1 o a d :L s 
LOAD"D: PRINTS" * 



Am * 



"PRINTS'* is a series of PRINT statements with 
q u o t a t i o fi m a r k s ♦ T h i s p r o g r am w i 1 1 e n a b 1 e 
y o u t o c o n c e ri t r a t e o n t h e d e s i g n o r p i e t u r e y o « j 
d e c i d e t o m ake , si n c e a 1 1 y o » j h a v e t o d o i s t y p e 
the characters you want to use between the 
quotation marks* The print statements look 
like this* 



100 PRINT " 
200 PRINT " 



i * 
1 1 



and there are lots of them 



•7) 



IJ s e g r :i d p a p e r t o p 1 a n a d e s i g n o r a p i c t u r e ♦ 

You may use the control graphics characters 
a v a .i I a b 1 e o n t h e A t a r i * or t h e 1 e 1 1 e r s o n t h e 
k e y b oar d ♦ I f y o u u s e t h e c o n t r o 1 c h a r a c t e r s y o u 
w o r» ' t fo e a b 1 e t o g e t a h a r d c o p y f r o m t h e p r i ri t e r ♦ 



4 



List the "PRINTS" program* Type in the picture or 
design you made* IT IS EXTI^EMEiLY IMPORTANT THAT. 
YOU PRESS RETURN AS YOU FJCNISH EACH LINE OF 
THE PRC) CRAM *_ IF YOU DO NOT* YOUR WORK WILL 
NOT BE STORED IN MEMORY! 



* 

/ 

o ♦ 



R u ri y o u r p r o g r a m a n d m a k e a n y n e c e s s a r y c h a ri g e s ♦ 

W h e ri y o u a r e h a p p y w i t h the program* save i t 
o ri y o u r d i s k u s i ri g t h e c o m m a n d * 5 A 0 E*I " D * n ame" * 
"name" is the name you want to give your program* 



-v 

/ ♦ 



Type NEW and then type LIST* Nothing should 
be in memory* 



q 
>..? ♦ 



R u n the pro g r a m f r o m t h e d i. s k using the com m a n d * 
RLJN"D * name " * 



'7 * 



T y p e NEW a g a i n * N o w 1 o a d y o u r p r o g r a m « j s i n g 
the command LOAD " D * name" * List the program* 



1 0 * F i n a 1 1 y * s e ri d t h e p r o g r a m t o the p r i. ri t e r i j s i ri g 
the command* LIST"P 



* 1 1 
* * 
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e: d x r x iM cs 

F“ F* IR “T 
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III 13* 



Introducti o n 

A transparency and canper copies of the code to bee typed 
in (called “EDITING PROGRAMS -PART II" ) are available. There 
is one individual activity sheet, “PRACTICE EDITING 
PROGRAMS", that provides practice for the canper who does not 
need a formal lesson on this topic. 



1. Type in the program exactly as it is written. Check 
f o r erro r s . hake c o r r e c t i o n s i f n e c e s s a r y . B e s ure t h a t t h e 
campers notice the order in which the lines are entered. 

NEW 

20 PRINT “UP" 

10 PRINT "DOWN" 

30 PRINT “MIDDLE" 

5 PRINT “THIS IS THE BEGINNING" 

TO PRINT “THIS IS THE END" 



X - <r 



Run the program noticing the order in which the 
w o r d s w e r e p r i n t e d o n t h & s e r e e n . 



3. List thee program, again noticing the order in which 
the lines are printed on the screen. 

T. Change lines 10, 20, and 30 (by retyping the whole 
line) tot 



10 PRINT “ 
20 PRINT “ 
30 PRINT “ 



UP" 

MIDDLE" 

DOWN" 



R u n t h e program 



j ♦ 



A d d t h e f o 1 1 o w i n g J. i n e s . 



15 PRINT 
PRINT 



'?cr 

JL. vJ 



"LE-IrT 

I ! 



t 1 



PRINT 
37 PRINT 



RIGHT 



1 1 



R u n t h e program. 



6 ♦ Dele t e 1 i n e s 5 a n d TO. Lis t a ri d t h e n r u n t h e 
P r o g r a m . 



Copy r i g h t A t a r i , I n c . , 



1983 . 
19LP 



A 1 1 r i g h t a r e s e r v e d . 



ie: id* x x 3 : m g 



F" IR O C5 Ft F-1 M 3 
F" A Ft T~ 31 31 
(CONTINUED) 



7 ♦ 

c a m p e r s 
Disc u s s 



Add a REM to 
to coMpose a n 
the? iwportanc 



the beginning of the program ♦ Ask 
a ppro p r i a t e d e s e r i p t i v e s t a t e m e? n t ♦ 
e of comm e n t s > e s p e c i a 1 1 y i n I o ri g 



pro q r a m s ♦ 



8 ♦ 

that R Ei M 



Run the progrsM* List it again reminding cawpers 
statements do not effect the program* 



9 ♦ 

P r o q ram* 



P r act ice? 



1 i s t i nq spec i f i ed 



lines to see parts of a 



1 0 ♦ C h a n q e a 1 i n e n u mber u s i n q sere e n e d i t i n q a n d t h e r t 
list the? program to see what happens* The safest way to 
c h a n q e o n e 1 i n e n u Mber is s h o w n b e ]. o w * 

20 PRINT M HELLO n 

Chanqe 20 to 25* 

W h e n y o u 1 i s t y o u q e t 

2 0 PRINT “HELLO 11 
25 PRINT "HELLO" 

Type 20 <RETURN>* 
and 1 i st the p r oqr am ♦ 

You should now have 

25 PRINT “HELLO" 



1 1 ♦ Add the END statement at different places in the 
pro eg r am to see i t s e f f e c t * 




♦ 



Try this line in the program** 

6 0 F' PINT “This line will help y o u 
how Many lines of information you 
on the screen without adding a new 
70 PRINT “You cannot print More th 
That is why line 70 was added here 



t o r e m e m b e r 

c a n p r i n t 

1 i n e n u Mber 

a n 3 li n e s * 

< * 

■» 



1 1 



Gopg T' i q h t A 1 3 r i > Inc* > 1983* 

2 0LP 



A 11 r i q h t s r e s e r v e d * 



E: ID* X T X iM g f- IR O G R F* m s 

F" F* F: 1“ X X 



NEW 

20 PRINT “UP M 
10 PRINT "DOWN" 

30 PRINT "MIDDLE” 

5 PRINT "THIS IS THE BEGINNING" 
^0 PRINT "THIS IS’ THE END" 



10 PRINT " 
20 PRINT " 
30 PRINT " 



UP" 

MIDDLE" 

DOWN" 



15 PRINT "LEFT" 

25 PRINT " RIGHT" 

35 PRINT 
37 PRINT 



20 PRINT "HELLO" 

Change 20 to 25 ♦ 

W h e n yo u 1 i s t y o u g e t 

20 PRINT "HELLO" 

25 PRINT "HELLO" 

Type 20 <RETURN> ♦ 
and list the program* 
You should now have 

25 PRINT "HELLO" 



60 PRINT 
how Many 
on the s 
70 PRINT 
That i s 



"This line will h e 1 p y a u t o ren e m b e r 
1 i ri e s of inform a t i o n y o u e a ri p r i n t 
c r e e n wit h o u t a d ding a n e w 1 i n e n u n b e r ' 
' ' Y o u c a n n o t p r i n t mo? e t h a ri 3 1 i n e s * 
w h y 1 i n e 7 0 w a s ad d e d h e r e ♦ 1 ' 



1933 ♦ 
T21LP 



Copyright Atari, Inc*, 



All rights reserved* 



F" R: & 1 o t m c e : 



E-.: D JO T HI iN 3 G 



F“ r< o g r< a. m s 



1* Type in the program exactly as it is 
for errors* Make corrections if necessary* 
attention to the order in which the lines are 



written* 
Pay special 
e n t e r e d » 



Check 



NEW 

20 PRINT 


"THIS 


IS 


THE 


TOP*" 


10 PRINT 


"THIS 


IS 


THE 


BOTTOM 


30 PRINT 


“THIS 


IS 


THE 


MIDDLE 


5 PRINT 


"FIRST 


LINE" 




4 0 PRINT 


"THE 


END 


1 1 





1 1 
■ i 



2* Run the prog r a m noticing the order 
w o r d s w e r e p r i n t e d o n t h e s c r e e n ♦ 



in which the 



3* List the program , again noticing the order 
the lines are printed on the screen* 



i n w h i c 




C h a nge 1 i n e s 

10 PRINT " 

20 PRINT M 
30 PRINT M 



10, 20 and 30 to: 

TOP 11 

MIDDLE" 

BOTTOM" 



v*J ♦ 



Add the following lines* 



15 PRINT "LEI FT" 

25 PRINT " RIGHT" 

35 PRINT 
37 PRINT 



Run the program* 



6* Delete lines 5 and ^ 0 * 
program* 



List and then run the? 



an 



7 * Add a 
a p p r o p r i a t e 



REM to the beginning 
stab e m e n t t o d e s c t s i b e 



o f t h e p r o g ran* C o m p a s e? 

w h a 1 t h e p r o g r a n d o e? s * 



1933 



Copyright Atari , 



I l"i c ♦ , 



2 21 A 



All 



rights r e s e r v e d * 



f m r *=% o ~r ur: c e 



e: r_> 3: nr :x am cd 

(CONTINUED) 



IF" 1R CD CD !R ,A M 3 



9 * C h a n g e a 1 i n e n u m b e r u s> i n g scree? ri e d i t :L ri g a r*i d the n 
list the progrsM to see what happens ♦ The safest way to 
c h a n g e o n e 1 :i n e n 1 j nber :L s s h o w n b e 1 o w ♦ 

10 0 PRINT "hello" 

Change 100 to 105 ♦ 





When 


you list you get 


100 


PRINT 


"HELLO" 


1 :l 0 


PRINT 


"HELLO" 




Type 


100 <RETURN> ♦ 




a n d 


1 i s t t h e p r 0 g r a m * 




Y 0 u 


s h 0 u 1 d n 0 w h a v e 


110 


PRINT 


"HELLO" 



which is w h a t y o u w a r*i t * 



10* Add the END ststenent at different places in the 
program to see its effect* 



11 * Try 



th i s 



1 i n e i n the p r o g r a m * 



6 0 F : ’ R I N T "This 1 i n e w i 1 1 h e 1 p y o u t o r e n e? n b e r 
how m a n y lines o f inforna t i o n y o u c a n p r i n t 
o n t h e screen with o u t a d d i n g a n e w 1 i n e n u m b e r " 
70 PF\INT "You cannot print nora than 3 lines* 
That is why line 70 was added here*" 



1983 * 
231 A 



Copy r i g h t Atari ? Inc*#. 
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rights reserved* 



o f- e: if;: ,a ~r o ir s 



An individual worksheet called "PRACTICE WITH OPERATORS" is 
available for caMpers who need a review f but do not need a 
formal lesson*. A transparency and individual camper copies 
of the t © x t for t h e 1 e s s o n p 1 a n are a 1 s o a v a i 1 a b 1 e ♦ 

1 ♦ Type in the following program exactly as it is 
w r i 1 1 e ri ♦ 



10 


PRINT 


"GO" 


20 


PRINT 


"STOP 


30 


PRINT 




40 


PRINT 


"GO " ; 


50 


PRINT 


"STOP 


60 


PRINT 




70 


PRINT 


"GO" , 


80 


PRINT 


"STOP 


90 


PRINT 




100 


PRINT 


"GO" , 


110 


PRINT 


6 

o 


p r ogr 


a m p a 


y i n g c 



i ! 



I I 
I i 



I I 



J" and the ' V ♦ 



n 

A- * 


Try 


addi ng 


n m/_ — . _. ..} 1 1 > 1 1 / .. .l _ .... — 

? s a r i u t s co i x 1 1 e s ♦ 


b o r e x a m p 1 e : 




40 


PRINT 


• * r' n * 1 * + •> ♦ ♦ 

UU t t ? f .*. 






70 


PRINT 


"GO" , , , 





Discuss how these operators night be put to use in a program* 

# 3 ♦ Type in the following line exactly as it is written 

100 PRINT "FIRST" ♦ PRINT "SECOND": PRINT "THIRD" 

D i s c u s s w h e n it is a p p r opr i a t e t o p u t m ore t h a ri o n e s t at e m e n t 
o n a 1 i ri e i n a p r o g ran*. Em p h a s i z e t h e d i f f i c u 1 1 y o f 
debugging if one has too many statements or unrelated 
statements together ♦ 



4 



* 



cr 



Try combining " ♦ " with "J" 
Give the following summary 



and " > " o ri a 1 i n e ♦ 
of the operators: 



The C o m m a ^ - Helps organize output 

into columns*. The computer puts words 
or numbers into columns 10 spaces apart for 
each comma ♦ 



T he S e m 1 col on 



J o i. ri s t h i ri g s t o g e t hi e r ♦ 



T hi e C o 1. o ri - Used to put more 
i n a p r o g r a m 1 i n e * 



t h a ri o n e 



i n s t r u c t i o n 



C o p y r i g h t A t a i' i * Inc ♦ > 



1983* 
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o F" e: if;: .a t o if-: s 



10 


PRINT 


“GO" 


20 


PRINT 


"STOP" 


30 


PRINT 




40 


PRINT 


“GO" ; 


50 


PRINT 


“STOP" 


60 


PRINT 




70 


PRINT 


"GO" , 


30 


PRINT 


“STOP" 


90 


PRINT 




100 


PRINT 


"GO" , “STOP" 


110 


PRINT 


“GO" ; “STOP" 



4 0 forint "go 

70 PRINT "GO",,, 



10 0 PRINT “FIRST'* ♦ PRINT "SECOND"; PRINT "THIRD" 



The CoMMa ~ Helps organize output 

i n t o col u Mns ♦ The compute r u t s war d s 
or numbers into columns 10 spaces apart for 

each COMM3 ♦ 

The S en i col on ^ - J o i n s t h i n g s t ogether ♦ 

The Colon t - Used to put More than one instruction 
i n a p r o g r a n 1 i n e ♦ 



Copyr ight A tar i , 



Inc ♦ t 1 9 8 3 ♦ 
T25LP 
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!♦ Type in the following program exactly as it is 
w r i 1 1 e n 4 



10 


PRINT 


"HERE" 




20 


PRINT 


"THERE" 




30 


PRINT 






•TO 


PRINT 


"HERE" ; 




50 


PRINT 


"THERE" 




60 


PRINT 






70 


PRINT 


"HERE" , 




8 0 


PRINT 


"THERE" 




Run the progran paying careful attention to 


t h e e f f e c t o f t hi e 


" ; " and the 


ii M 

* * 






2. Try 


add! ng 


" > " ' s and " l" ' s to 1 i nes 


♦ For exsMpleJ 


TO 


PRINT 


"HERE" ; i J 




70 


PRINT 


"THERE" , , , 




On the blanks below 


? w r i t e a t 1 e a s t o n e w a y 


these operate r s 


night be put 


t o u s e 


in a progran* 





How can you get a blank between "HElRE" and "THERE'* in the 
case where these words are Joined? 



3* Type in the following line exactly as it is writ tent 



100 PRINT "FIRST": PRINT "SECOND " t PRINT "THIRD" 



Try c o n b i n i n g 



1 1 



1 1 



w i. t h 



1 1 



1 1 



o 



rid 



i • 



1 1 



on a line 



5 ♦ The following is a sunnary of what each of the 
operator s does t 

The Conns ^ — Helps o r g a n ize o u t p » j t 

into col u n n s ♦ T h e c o n p u t e r p> u t s wor d s 
or n li n b e r s i n t o c o 1 u n n s 1 0 s paces a p a r t f o r 
each conn a > 

The? S e n 1 c o 1 . o i~i - J o i n s t h i n g s t o g ether ♦ 

The C o 1 q n t_ - Use d t o p u t no r e t h a n o ri e i n s t r « j c t i o n 
i n a pro g r a n 1 i ri e ♦ 



C o p y r i g h t A t a r i > I n c ♦ > 
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An individual worksheet called "EXPLORE LF'RINT" is available 
csMpers who need practice#, but do not need a for Mai lesson ♦ A 
•transparency and individual ca«per copies of the programs used in 
t h is 1 e s s on a r e a 1 s o prov i d e d * 



f or 



on 



1 4 Be sure the printer and (if you have one) the interface are? 
Type in the prograM below* 



10 
20 
30 
4 0 



50 



REM T h i s program i 1 1 u s t r a t e is w h a t L P E I N T d o e s 
PRINT "This line will appear on the screen*" 
LF'RINT "THIS LINE HILL NOT APPEAR ON THE SCR 
LF'RINT "LF'RINT WORKS JUST LIKE PRINT" 

LF’RINT "EXCEPT THAT IT PRINTS ON THE PRINTER" 



1 1 



R u r» t h e p r o gran* L o o k c a r e f u 1 1 y a t t h e o u t put to see w h i c h 1 i n e s 
were output to the screen and which ones were output to the printer* 



2 * 



Type in the following program and then run it to further 
illustrate LF'RINT* 



10 



0 



30 



40 

50 

60 

70 

80 

90 

100 



L F‘ R I N T "Said a y o u n g * b u t wise r o b o t 
n a m e d T r « j m a n , ' ' 

PRINT "The instructor's supremacy fades" 

L F* Fl I N T ' 1 ' W h e n a m a ri s t a r t s f u s s i n ' 
and f UMin / , 

PRINT "When robots becone teaching aide s," 

L F’ Y < I N T " A n d is c 1 u m s y a n d c o a r s e " 

PRINT " And students bring treats" 

LF'RINT " I think of the source," 

PRINT " Of candy and sweets" 

LPFlINT "And renenber he is only hunaru / n 
F’FlINT "To the robot who Makes out the grade 



s ♦ 



1 1 



3* CoMbine PRINT and LF’RINT in a program as shown in the 
e? x a m p 1 e b e low* 



10 

20 

30 

40 

50 

60 



PRINT "SCREEN " J : LF'RINT "PRINTER 
PRINT "FIRST" t LF’RINT "SECOND" 
PRINT "54321", 

LF’RINT "5 4 3 2 1", 

PRINT "BLASTOFF!" 

LF’RINT "BLASTOFF ! " 



i \ * 
* 



Run the program* 
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i f- fc :j: m t 



10 

20 

30 

40 

50 



REM T h i s pro <3 ram i 1 1 u s t r a t £ s w h a t L F : ‘ F*< I N T d o e s 
PRINT "THIS LINE WILL APPEAR ON THE SCREEN” 
LPRINT “THIS LIME WILL NOT APPEAR ON THE SCREEN” 
LPRINT "LPRINT WORKS JUST LIKE PRINT” 

LPRINT “EXCEPT THAT IT PRINTS ON THE PRINTER” 



10 



20 

30 

40 

50 

60 

70 

80 

90 

100 



1 1 



LPRINT “Said 3 young t but wise robot 
H3ms d T r u m a n * ” 

P R I N T “The i n s t r u c t o r / s s » j preM a c y f a d e s 
L P R I N T ” 7 W h n 3 m a n s t a r t s f u s a i n ' 
and fumin' > 

PF‘<INT “When robots become teaching aides” 
LPRINT " And is cluMsy and coarse” 

PRINT " A ri d s t u d e n t s b r j. n <3 t rests" 

LPRINT " I think of the source J 1 
PF‘<INT ” Of candy and sweets/' 

LPRINT “And remember he is only human 
PRINT “To the robot who makes out the 
grades* 



/ 1 1 



1 1 



10 


PRINT 


“SCREEN” : LPRINT 


20 


PRINT 


“FIRST”: LPRINT " 


30 


PRINT 


”5 432 1“* 


4 0 


LPRINT 


"5 4321”* 


50 


PRINT 


“BLASTOFF ! ” 


60 


LPRINT 


“BLASTOFF ! ” 



"PRINTER” 

SECOND” 
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EE X IF* L.. O IR IE:I 



l if- ir :i:: \fi t 



1 ♦ Be sure the 
progr 3M below ♦ 



pr inter 



and the interface are on* 



Type in the 



10 
2 0 
30 
^0 
50 



R 11 M T h i s p r o g r a n 3 . 1 1 u s t r a t e a w h a t L. P R I N T d o e s 
PRINT “THIS LINE WILL OUTPUT TO THE SCREEN** 
LPRINT “THIS LINE WILL NOT OUTPUT TO THE SCREEN “ 
LPRINT “LPRINT WORKS JUST LIKE PRINT “ 

LPRINT “EXCEPT THAT IT PRINTS ON THE PRINTER" 



Run the program* Look carefully at the 
were output to the screen and which ones 



output to see which 
were output to the 



1 i n e s 
pr i. n t e r ♦ 



2 ♦ 



Type in the following program and then run it to further 
illustrate LPRINT ♦ 



10 
20 
30 
^0 
50 
60 
70 
80 
90 
10 0 
110 



GRAPHICS 
LPRINT “ 
POSITION 
LPRINT “ 
POSITION 
LPRINT “ 
POSITION 
LPRINT “ 
POSITION 
LPRINT “ 
POSITION 



2 : SET CO LOR 
T h e r e was a 
5 , i: PRINT 
Who dreaned 
5, 2: PRINT 
He wo k e 
5, 3 $ PRINT 
With a t 
5 , V* PRINT 
To find it 
5* 5 J PRINT 



T,13,2 

young nan from Purdue" 

h e* w a s e a t i n g roc k stew*" 
it 6 J “ it T h e printer il ; 
up in the night," 

#6? “it is printing-1 
err idle f r ight" 5 
#6 ? “ it It a 1 i ner i ck-Mt “ 

w a s p e r f e c 1 1 y true* 1 ' 



1 1 



1 1 



3* Combine PRINT and LPRINT in a program* An example is given 
b e ]. o w * 



10 
2 0 
30 
^0 
50 
60 



PRINT “SCREEN": LPRINT “PRINTER" 
PRINT “FIRST": LPRINT “SECOND" 
PRINT “5 T 3 2 1 * ' , 

LPRINT “5 4321“, 

PRINT “BLASTOFF!" 

LPRINT “BLASTOFF ! “ 



E'. e creative a n d n a k e u p y o u r o wn p r o g r a m ♦ Save the proqr a n on y o u r 
d i s kette ♦ 
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r e s e r v e d ♦ 




o s :x t x o 




!♦ Review what POSITION does 



fallowing informs t i o n t 



Include at least the 



- POSITION, tells the computer where to start 
P r i n t i n g o n the scree n ♦ 

~ The format of its use is POSITION 10,3* F\enind 
campers t h a t the 10 tel 1 s the n u m her o f spaces 
across, and the 3 tells how Many spaces down* 

A conna Must be present between the numerals* 



In Graphics 0, there are ^0 spaces across the 
screen, numbered 0 to 39 ♦ There are 2^ spaces 
down on the screen numbered 0 to 23 ♦ 

Because the numbers start at zero, the first 
n ufiber a f t e r P 0 S I T I (3 N c a n b e f r gm 0 to 39 arid 
the second number fron 0 to 23* 



2* Practice with POSITION by typing in different 
numbers in ifmediate node* Campers should try to put words 
or characters on different parts of the screen* The 
abbreviation PQS* could be introduced at this tine* E'.e sure 



that 



canper s 



try the following* 



PRINT “HELLO" 

POSITION 0 , 0 * PRINT “HELLO" 



Call their attention to the fact that in 
a PRINT statement everything is done two 
edge of the screen* 



B A S I (3 w h e n o n e u s e s 
spaces froM the left 



3* 

t O S> h O W 



C h a 1 1 e ri g e c a m p e r s t o w r i t e a program u s i n g 
the following on the screen* 



POSITION 



top left 



t oprig h t 



My nane is 

I a m i ri t h e m i d d 1 e * 



b o 1 1 o m 1 e f t 



b o 1 1 o m r i g h t 



^ * Disc u s s w h y a ri d h o w F : ' 0 S I T 1 0 N m i g h t b u s e d i n a 

p r o g r a n * 



Copy r ight A tar i ? Inc * , 
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e: x F" ii o r: u 



F-O'S -D. 



1 ♦ 1* h i a i a a r e v i e w o f w h 3 1 F : ' 0 S I T I G N d o e s ♦ 

a b b r 0 v i a t i. o n f o r f : ' 0 S I T 1 0 N •> 



P □ i 



D •> 1 •- 



3 l"i 



F : ’ (!) S I T 1 0 N tell a t h e e o m p u t e r w h © r e t o a t a r t 
P r i n t i n q o r*i t h e a c r © © n * 



T h © f o r m a t o f i t a u a e i a F : ' 0 S I T 1 0 N 1 0 , 3 * T h © 1 0 
1 3 1 1 a t h © n i j m b © r o f a p a c © a a c r o a a * a n d t h © 3 i © 1 1 a 
h o w r) 3 n y a f? a c © a d o w ri ♦ A c o n m a n u a t b e p r © s © ri t 

b © t w e © ri 1 1 - *! © n u m © r a 1 s * 



I! n G r a p hi i c a 0 * t h © r © a r © 

a c r © © n * ri u m b © r © d 0 t o 

o n t h © s c r e © n n u n b © r © d 0 t o .a o ♦ 



/•> /-t 

O 7 + 



4 0 a p a e © a a c r o a a i h © 

T h © r e a r © 2 4 a p a- c © a d o w r*i 

B © c a u a © t h © ri u m b © r a 
atari at 0 the first number after POSITION can 
b © f r o m 0 a r'i d 3 ? * a n d t h © a © c o n d r'i u m b © r f r o n 0 t o 2 3 •> 



T y f> © i n 



u. ... 
1/ 1 1 ti* 



f o 1 1 o w :L r'i q p r o a r a n a n d r u ri i t 




10 
2 0 
3 0 
40 



5 0 

6 0 
7 0 
30 
9 0 

10 0 
110 



POSITION 
F : ’ 0 S I T 1 0 N 
POSITION 
POSITION 
P 0 S I T 1 0 N 
P 0 S I T 1 0 N 
F- 1 0 S I T 1 0 N 
POSITION 
POSITION 
F : ' O S I T 1 0 N 
POSITION 



0*0; 

1 1 o : 

3 •> o : 



r.r 



U * 0 $ 

7 f o : 
9 * o : 

1 1 * o 

1 3 * 0 
1 5 * 0 
j. 7 * 0 
19*0 



P R I N T 
PRINT 
PRINT 
PRINT 
P R I N T 
P R I N T 
PRINT 
P R I N T 
P R I N T 
P R I N T 
P R I N T 



1 1 
1 1 
1 1 
i » 
1 1 






i » 

•.. 1 1 
i « 

* ' 

*:• 1 1 

... 1 ' 

— 1 1 

1 1 

~ 1 1 

1 1 



-* > 

\ J 1 ♦ 






Use POSITION and control 
o n t h © a c r 3 © ri * 1 1 w o u 1 d b © a q o o d 3. d © a t o u a © o r a p h p a p © r 

P 1 a r - i t !* i i a a c t i v i t y b © f o r © y o u a c t i..i a 1 1 y w r i t © t li © p r o o r a m <• 



S r a p n i c :r> t o d r a w a pi e t l« t % © 

t o 
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MODULE t-2 



GRAPHICS AND SOUND 



OBJECTIVES 

Be faniliar enough with graphics nodes 0-8 
to select the proper node for a task* 

Practice using PLOT arid DRAWTO* 

Know the relationship between COLOR and SETCOLOR 
and how to use each one* 



MATERIALS REQUIRED 

BASIC Cartridge 
Canper's Personal Diskette 
BASIC Utility Disk 
Graphics Modes Graph Paper 



REFERENCES 

Inside Atari Basic » pp* 72-131 

Your Atari Computer , PP ♦ 271-2?0_*- 325-335 

Atar i Sound and Graphics * pp. 1-T0 

Atar i ^00/800 B a s~l c Reference Manual * pp* ■TS-SS 

CONTENT 

There are five lessons in the nodule* The activities 
are written for the Atari 800* If you use another Atari* be 
sure to test each lesson* A BASIC cartridge is required for 
all of the lessons* 

Lesson 1_ - Graphics 0*1*2 

Pages 1-7 

New Statenents 

GRAPHICS <GR*> PRINT *6J RUN "Dtnane" 

Prerequisite Statenent 
POSITION (POS*) 

Materials 

BASIC Utility Disk: NEAT 
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Introduces the GRAPHICS statenent and the 
use of Modes 0, 1, and 2, Covers the 
effect of lower ease, capitals, and inverse 
video with PRINT t6. The prograM, NEAT, on the 
BASIC Utility Disk deMonstrates the difference 
between GRAPHICS 1 and 2* 



Lesson 2 - GRAPHICS 3 THROUGH 8 

Pages 8-12 

New Statenents 

PLOT DRAWTO COLOR 

Prerequisite Statenents 

GRAPHICS PRINT *6? POSITION 

Materials 

BASIC Utility Disk* CLOWN 

Canpers experinent with plotting points and 
drawing lines. The prograM, CLOWN, on the 
BASIC Utility Disk gives an excellent coMP3rison 
of resolution in GRAPHICS 3, 5, and 7, Graphics 
Modes chart gives descriptions and conparisons 
of each of the Modes, 



Lesson 3 - SETCOLOR 

Pages 13-18 

New Statenent 
SETCOLOR 

Prerequisite Statenents 

GRAPHICS PLOT DRAWTO 

Materials 

BASIC Utility Disk: 

CUBE 

BOX 

COLOR 

Canpers learn about hue, luminance, and color 
registers. Three prograns on the BASIC 
Utility Disk give good denonstr ations of color: 
BOX, CUBE, and COLOR, 
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Lesson ^ 



COLOR 



Pages 19-25 

New Statement 
COLOR 

Prerequisite StateMents 

SETCOLOR PLOT DRAWTO GRAPHICS 

Activities illustrate how COLOR is used in 
programs, A chart called "USING COLOR" will 
help C3«pers understand the relationship 
between COLOR and SETCOLOR ♦ 



Lesson 5 - SOUND 

Pages 26-31 
New StateMents 

SOUND END (Used with SOUND) 

Introduces use of SOUND* Canpers learn about 
pitch* distortion* and voluMe paraMeters and 
about sound 'registers* The focus is on sound 
effects rather than writing Music* 
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G F«r. iA» F" HXCS O t 
(INTRODUCTION) 



&■ 




E’.efore beginning the activities in this lesson* introduce the 
f ol lowing i tens ♦ 



1* Graphics 0* 1* and 2 are "text" nodes for 

displaying words on the screen* 



2 ♦ When the conputer is turned on* it is 

in Graphics 0* Graphics 0 is also entered when 
SYSTEM RESET is pressed* or when "GRAPHICS 0" 
is typed* 



3* Other graphics nodes are entered by typing 

"GRAPHICS" (or GR ♦ ) and the appropriate nunfaer ♦ 
For exanple* GRAPHICS 2 is entered by typing 
"GRAPHICS 2" OR "GR* 2"* 



^* In graphics nodes other than 0* there can be a 
text window* (GTIA nodes 9* 10* and 11 don't 

allow text windows*) Adding 16 to the 
graphics node nunber gets rid of the text 
window* For exanple* GRAPHICS 2+16 
elininates the window fron GRAPHICS 2* 



5* POSITION (POS*) can be used in GRAPHICS 0* 
1* and 2* E : .ie aware* however* that there 
are fewer points across and down in GR ♦ 1 

and GR* 2* 



Copyright Atari* Inc** 



1903* 

1LP 



All rights reserved* 



GRAPHXCS O *• X *■ *JZ 
(INTRODUCTION - CONTINUE!!) ) 



6 ♦ "PRINT *6*" is used in a program to print text 
or; the screen in graphics nodes 1 and 2 ♦ 



7* Control graphics characters are available 

in GRAPHICS 0* They are used with nornal PRINT 
connands ♦ CTRL-CAPS/LOWR will lock the keyboard 
into the "graphics character node*" 
SHIFT-CAPS/LOWR gets the keyboard back to 
nornal* The graphics characters are for 
screen display* They can not be printed on the 
printer ♦ 



A transparency and student copies of the code used in the 
teacher lesson plans is available* 
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Activity #1 

Remind campers that GR ♦ 1 has a text window at the 

bottoM of the screen, in which letters appear when you type 
normally, In order to print outside the text window, you 
Must use PRINT #6;, PRINT *6? ,, Hello M will print the word, 
"Hello" ♦ 



The activities in this section deal with GRAPHICS 1 and 
2, since these give special capabilities for putting text on 
the screen ♦ You Might want to quickly review the use of 
control graphics keys in GRAPHICS ()♦ GRAPHICS 0 is also the 
Mode in which they will be typing in, listing and changing 
pr ogr aMS ♦ 



1 ♦ Canpers should type in the following lines to see 
the effect of graphics Modes 1 and 2 ♦ 

GR ♦ 1 

PRINT “HI! MY NAME IS “ 

PRINT “THIS IS GRAPHICS MODE 1," 

GR, 2 

PRINT * 6 ; “THIS IS" 

PRINT * 6 J “GRAPHICS MODE 2,“ 

PRINT *6J- “CAPITAL LETTERS 1 * 

PRINT *6J "Shall letters'* 

Use the inverse video key for the words inside the 
quotation Marks in the next two print statements* 



PRINT 

PRINT 

PRINT 

PRINT 



*6; “CAPITAL LETTERS'* 
“IN INVERSE VIDEO" 
*6i "snail letters" 

*6} “in inverse video" 



2, Type in the following lines 
placing different text on the screen 
GRAPHICS 2, using a Mixture of upper- 
inverse video. Discuss why “POS, 7,5 



and then experiment with 
in both GRAPHICS 1 and 
case, lower case, and 
" appears to be printed 



in different positions in GR, 



1 AND GR 



2 , 



GR, 1 : POS, 7,5; PRINT *6? “POS, 7,5“ 
GR, 2: POS, 7,5; PRINT “POS, 7,5“ 
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Activity ft 1 ( continued ) 



3 ♦ Return to Gr ♦ 0, and type in the following program 
and run it* Campers should type their nawe in snail letters 
in place of the blank in line-? 'tO ♦ 



10 GRAPHICS 2 



20 


POS ♦ 




PRINT 


#6: 


^ /n rr» /* /A /rV /n /n> /n /n /TV /H 


30 


POS, 


4,3: 


PRINT 


*6; 


"X 


X M 


40 


POS. 


4,4: 


PRINT 


#6: 


"x 


X" 


50' 


POS. 


4,5: 


PRINT 


#6; 


*‘x 


X" 


60 


POS. 


4,6: 


PRINT 


*6; 


" X X X X X XX X X X X X 1 ‘ 



Type GR* 0 and list the program* Change line 10 tot 
10 GRAPHICS 2+16 

addt 

70 GOTO 70t REM This line keeps the display 
on the screen* 

and run the program again* 



^* The program on the BASIC Utility Disk called “NEAT" 
gives a good demonstration of the use of GRAPHICS 1 and 2* 
Have the campers run it from the disk by typing t 

run m d:neat m 

Be sure they try both modes 1 and 2 to see the difference* 

The code for the? program is provided for your 
information* It would not be appropriate for campers to 
examine it at this point* since the purpose is demonstration* 
and not teaching the specifics of the code itself ♦ 



Activity ft 2 



Challenge the campers to complete at least one of the 
activities on the worksheet called "GRAPHICS 0*1*2 - 
CHALLENGES" * 
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N) N N M N 



M IEI !(=•» T 



10 REM CHARACTER GRAPHICS 
20 PRINT " " 

30 PRINT "GRAPHICS 1 OR 2"; 

40 INPUT G 

50 IF GOl AND G<>2 THEN 30 
60 GRAPHICS G+16 
70 POSITION 5,3 

80 PRINT #6 J "N" ♦ REM UPPER CASE N 
90 POSITION 6,4 

100 PRINT #6 J "e" ? REM LOWER CASE E 
110 POSITION 7,5 

120 PRINT *6;"A" JREM UPPER CASE INVERSE VIDEO T 
130 POSITION 8,6 

140 PRINT #6 J " t " t REM LOWER CASE INVERSE VIDEO T 
150 FOR CQl.= 0 TO 3 
160 HUE=INT ( 1 6*RND < 0 ) ) 

170 FOR LUM= 0 TO 14 STEP 2 
180 SETCOLOR COL,HUE,LUM 
190 FOR PAUSE=1 TO 40 : NEXT PAUSE 
00 NEXT LUM 
10 SETCOLOR COL, HUE, 8 
20 NEXT COL 
30 GOTO 150 
40 END 



1983. 

5LP 
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CoMplete at least one of the challenges below* Show 
your completed program to the teacher or teaching assistant* 



1* Write a program that uses the each of the 
following in some way* Print sowe 
interesting Messages in different positions 
on the screen using a combination of 
capital letters* small letters* and 
inverse video* 

GF< ♦ 1 (or 2) + 16 
POSITION (POS*) 

PRINT *6? “CAPITALS 11 
PRINT *6? “small" 

PRINT * 6 ; “CAPITALS/INVERSE VIDEO 1 ' 

PRINT tf-6* “small/inverse video" 

GOTO (To keep the display on the screen*) 



Using what you learned in Activity #1* write 
a program that creates a title page for a book 
or a computer game* Include a title* 
author and any other information you think 
would be appropriate* This does not have 
to be a real book or game* Use your 
imagination ♦ 



3* Write a program that puts several boxes on the 
screen in different positions* Change 
the program so that words are in each of the 
boxes* Change the color of the words and boxes* 



♦ t 
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G 1R Ft F’ HICS O 

< EXERCISES ) 




GR. 1 
PRINT 
PRINT 
GR. 2 
PRINT 
PRINT 
PRINT 
PRINT 



"HI! MY NAME IS " 

*6* "THIS IS GRAPHICS MODE 1." 

*6? "THIS IS" 

"GRAPHICS MODE 2." 

*6? "CAPITAL LETTERS" 

♦ 6J "sMall letters" 



Use the inverse video Key for the words inside the 
quotation Marks in the next two print stateMents. 



PRINT 
PRINT #6 » 
PRINT *6; 
PRINT 



"CAPITAL LETTERS 
"IN INVERSE VIDEO" 
"sMall letters" 

"in inverse video" 



GR 



♦ 



i: POS ♦ 7,5: PRINT *6; 



"POS 




GR ♦ 2: POS* 7,5: PRINT *6 




10 


GRAPHICS 


2 


20 


POS. 


a n ♦ 


PRINT 


30 


POS. 


4,3: 


PRINT 


40 


POS. 


4 , 4 : 


PRINT 


50 


POS. 


4 , 5 : 


PRINT 


60 


POS. 


4,6: 


PRINT 



#6 : ,, *>K>K:>K>K>K>K>iOK>X>X>X ,, 

* 6 ; “* 

#6: "* 

$ 6 ; "x x M 

#6: "XXXaOKXXaOXXX)**' 



Type GR* 0 and list the program* Change line 10 to: 



10 GRAPHICS 2 + 16 

add : 

70 GOTO 70 : REM This line keeps the display 
on the screen* 
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Camp er s should 
blocks of color are 



be reminded that in these nodes * 
displayed instead of letters* 



dots or 



A chart called “GRAPHICS MODES CHART" shows the results 
of using each node* The chart nay be used as an 
introduction* or to sunnarize learning after the activities 
ajre complete* 



It would be appropriate to discuss pixels and resolution 
at sone tine during this lesson* 

PLOT AND .DRAWTO are introduced and/or practiced in this 
lesson* GOTO and COLOR are used* but canpers need not 
understand how they work until they are fornally introduced 
in subsequent lessons* The REM statement tells what each one 
does in the progran* 



A transparency and student copies of the code used in 
the lesson plans are* available* Graphics grids are also 
available for each mode* The grids are excellent for 
planning programs and for illustrating the maximum values for 
X and Y when using PLOT and DRAWTO* 



Activities 



1* Type in the following lines? 

GR* 3 
COLOR 1 
PLOT 1*1 
PLOT 39*1 
PLOT 39*18 
PLOT 1*18 
PLOT 1*1 



Notice the position of the squares on the screen* then type? 

DRAWTO 39*1 
DRAWTO 39*18 
DRAWTO 1*18 
DRAWTO 1*1 

Challenge campers to make the* box look like this? 
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(CONTINUED) 



2 ♦ Type in the 
predict what will be 



following program Ask campers to 
drawn on the screen before they run the 



P rOQT'3M * 

10 GR ♦ 3 + 16 

20 COLOR It REM Selects a color for the lines* 

30 PLOT 18,1 
^0 DRAWTO 39,9 
50 DRAWTO 18,18 
60 DRAWTO 1,9 
70 DRAWTO 18,1 

80 GOTO 80 t REM Keeps the display on the screen* 



3* Press BREAK and list the program* Explore what 
happens when the graphics Modes are changed and when COLOR is 
changed* Allow only the numbers 0, 1, 2, or 3 to be used 

with COLOR* 



^ ♦ Experiment with PLOT and DRAWTO to become familiar 
with maximum X and Y values in each mode* 



5* A program called "CLOWN", on th 
gives an excellent de?monstr at ion of the 
resolution between graphics modes 3, 5, 
provide the basis for the discussion of 
suggested in the introductory remarks* 
provided for your inf or Mat ion ♦ ) DO MOT 



e E’.ASIC Utility Disk, 
dif f erence in 
and 7* It would 
pixels and resolution 
(The program code is 
SKIP THIS ACTIVITY* 



6* Simulated rainfall* Type in the program* 
Experiment by changing graphics Modes, and by changing the 
"+" in line 30 to or "*"* 



10 

20 

30 

^0 

50 

60 



GR* 3-+-16 

FOR COUNTER^ 1 TO 8^ 
PRINT #6, "4-"; 

NEXT COUNTER 
GR* 0 
GOTO 10 
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GR ♦ 3 
COLOR 1 
PLOT 1,1 
PLOT 39,1 
PLOT 39,18 
PLOT 1,18 
PLOT 1,1 



Notice the position of the squares on the screen, then type 

DRAWTO 39,1 
DRAWTO 39, 18 

DRAWTO 1,18 
DRAWTO 1,1 



10 


GR. 3 + 


16 


20 


COLOR 1 


i REM Selects a 


30 


PLOT 18 


, 1 


40 


DRAWTO 


39,9 


50 


DRAWTO 


18,18 


60 


DRAWTO 


1,9 


70 


DRAWTO 


18,1 


80 


GOTO 80 


J REM Keeps the 



color for the lines. 



display on the screen. 



Sifiulated rainfall. Type in the prograM. Experinent by 
changing graphics Modes, and by changing the "+" in line 30 
to " = ", or . 

10 GR. 3+16 

20 FOR C0UNTER=1 TO 84 
30 PRINT *6,"+" ; 

4 0 NEXT COUNTER 
50 GR. 0 
60 GOTO 10 
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O 1L. O W fs! 



10 DIM CMD$ ( 1 ) 

100 PRINT " 

0 PRINT "MODE 3, 5, OR 7"? 

0 INPUT MODE 
0 GRAPHICS MODE + 16 

0 OPEN *1 t *t t 0 , "D! CLOWN* DAT" t INPUT #1JGR 
0 INPUT *i;CMD*:iF CMD$="D" THEN INPUT *i;X,Y: 
GOSLJB 500 JDRAWTO X.YJGOTO 220 
0 IF CMD$="F" THEN INPUT *1 *, X , Y , Z i GOSUB 500 J 
POSITION X » Y ♦ POKE 765,ZJXIQ 18 , #6 , 0 , 0 , "S l " 
PLOT X,Y:GOTO 220 

0 IF CMD$="P" THEN INPUT *1,X»YJ GOSUB 5001 
PLOT X,Y:GOTO 220 

0 IF CMD$="S" THEN INPUT *1,X,Y,Z: 

SETCOLOR X-l > Y , Z ♦ GOTO 220 
0 IF CMD$="C" THEN INPUT #1,X: COLOR XIGOTO 220 
0 CLOSE #1 
0 GOTO 310 
0 END 

0 REM SCALING ROUTINE 
0 X=X-3 0 

0 IF MODE-7 THEN RETURN 
0 IF MODELS THEN X=INT ( X/2 ) t Y=INT ( Y/2 ) 

0 IF M0DE=3 THEN X=INT (X/^)1Y=INT(Y/^) 

0 RETURN 
560 END 
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M O O IE S CHI A Ft T 



MODE 



DESCRIPTION 



GRAPHICS 0 



Text Mode* 

Regular type* One color* 



GRAPHICS 1 Text Mode* Large type* 

Double width* Five 
colors ♦ 



GRAPHICS 2 Text Mode* Largest 

type* Double width* 
Double height* Five 
colors ♦ 



GRAPHICS 3 Large graphics squares* 

Four colors* Not Much 
Memory used* Cannot 
Make detailed drawings* 



GRAPHICS 4 SMaller graphics points* 

Two colors f but less Menory 
Memory than GR* 5* 



GRAPHICS 5 SMaller graphics points* 

Four colors > but uses 
twice as Much MeMory 
as GR* 4* 



GRAPHICS 6 Moderately high resolution 

Two colors f but uses 
half as Much MeMory 
as GR* 7* 



GRAPHICS 7 Moderately high resolution 

Four colors * but uses 
twice as Much MeMory 
as G R * 6 ♦ 



GRAPHICS 8 High resolution* Two colors* 

Lots of MeMory used* 

E'.est for detailed drawings* 
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SIZE 
4 0 x 24 



20 x 20 (split) 
20 x 24 (full) 



20 x 10 (split) 
20 x 12 (full) 



40 x 20 (split) 
40 x 24 (full) 



80 x 40 (split) 
80 x 48 (full) 



80 x 40 (split) 
80 x 48 (full) 



160 x 80 (split) 
160 x 96 (full) 



160 x 80 (split) 
160 x 96 (full) 



320 x 160 (split) 
320 x 192 (full) 



reserv e d ♦ 



» EL T C O IL. O FC 



This lesson is not Meant to be 3 conprehensi ve study of 
SETCOLOR* After comp let ing the activities* caMpers should 
know ♦ 

1 * what SETCOLOR does* 

2* the Meaning of the words hue and 
luMi nance ♦ 

3* how to use SETCOLOR to change hue 
and/or luMinance ♦ 

the appropriate tiMe to use SETCOLOR* 

6* that color registers govern the characters* 
borders* and background colors 
displayed on the screen ♦ 

A transparency and individual copies of the chart called 
"COLOR CHART" are available for this lesson* (This lesson 
was written for use with the Atari 800 * S>OMe things May be 
different on the 1200*) 



Activity *1 - SETCOLOR 

1* ReMind caMpers that the SETCOLOR statement is 
followed by three numbers# Each number gives the computer 
information it needs to create the colors you want* The 
first number is matched with a location in memory and tells 
what part of the screen display you want to change* The 
second is the color number and the third controls the 
luminance* The larger the luminance number* the brighter the 
color becomes* The value ranges of the parameters are* 

Color Register 0-^ 

Hue 0-15 

Luminance 0-1^ (Even numbers* Odd 

numbers are OK* but 
give the same colors 
as even numbers*) 



2* Experiment with SETCOLOR by typing in* 

SETCOLOR 2*2*4 

Change the color and luminance values (the second two 
numbers) to see what happens* Then change the register 
number (the first number) to 4 and try different colors and 
luminances ♦ 
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3 ee: ~r c o l o fc 

(CONTINUED) 



3 * The BASIC Utility Disk has three programs that 
illustrate the use of color ♦ Have the canpers run each of 

the following fron the disk using RUN "D* " ♦ They 

should be used in the order listed below ♦ 

CUE’-E - May be used to review the effects 

of GRAPHICS 3, 5, and 7 * Also is an 
excellent introduction to the 
range of colors available* 

E‘-OX - Gives an excellent demonstration 

of color and hue* It would be especially 
good for campers who do not understand 
the concept of lunimance* 

COLOR - Manipulates border and screen colors* 

A good lead in for discussion of how 
to change the border colors and the 
screen colors ♦ 

A hard copy of the program code is available for your 
information* It would not be appropriate at this time to 
discuss the code with the campers* 

"t* Type in the program listed below* It provides an 
effective visual definition of the concept of luminance* 

10 GR* 9 

20 SETCOLOR "*,5,0 
30 FOR X=0 TO 15 
"10 COLOR X 
50 PLOT X,0 
60 DRAWTO X , 191 
70 NEXT X 
80 GOTO 80 



Have campers change the hue number (5) to see what happens 
when the color is changed in this program* The color chart 
would be useful for this activity* 
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SETC O IL. O Ft ACT! Kf JT. T X EE S 

C A if-1 F* IE Ft O O IF’ V 



Experiment with SETCOLOF^ by typing in 
SETCOLOR 2,2,4 



These are the values 


you can use i 


Color Register 


0—4 


Hue 


0-15 


Lutti nance 


0-14 



10 GR. 9 

20 SETCOLOR 4,5,0 
30 FOR X=0 TO 15 
40 COLOR X 
50 PLOT X,0 
60 DRAWTO X,191 
70 NEXT X 
80 GOTO 80 
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C U IE: E 



10 
20 
30 
40 
5 0 



REM COLORED CUBE 

PRINT " " X OPEN *1,4,0,"K: M 

PRINT "YOU CAN CHANGE THE COLORS OF" 

PRINT "THE CUBE FACES BY HITTING DIFFERENT" 
PRINT "KEYS ON THE KEYBOARD ♦ " 



60 PRINT 

70 PRINT "THE CUBE ONLY LOOKS REASONABLE IN" 

80 PRINT "GRAPHICS MODES 3, 5, OR 7, BUT" 

90 PRINT "YOU CAN TRY OTHER MODES,” 

100 PRINT "TYPE THE SPACE BAR WHEN YOU WANT" 

110 PRINT "TO TRY. A DIFFERENT MODE." 

120 PRINT 

130 PRINT "GRAPHICS MODE" $ 

140 INPUT G ♦ GRAPHICS G+16 

150 FOR 1=0 TO 3 * SETCOLOR I,0,14JNEXT ItSETCOLQR 4,9,4 
160 X=12JY=9 
170 COLOR 1 

180 FOR 1=0 TO 10 ... • 

190 PLOT X,Y+I*,DRAWTO X+10,Y-I 

200 NEXT I 

210 COLOR 2 

220 FOR 1=1 TO 6 

230 PLOT X+I,Y-IJDRAWTO X+I+10,Y-I 
240 NEXT I 
250 COLOR 3 



260 FOR 1=1 TO 6 

270 plot x+io+i,y-i:drawtq X+10+I,Y+10-I 

280 NEXT I 

290 FOR 1=0 TO 2 

300 GET #1 , KEY 

310 IF KEY = 32 THEN PRINT " "JGOTO 130 
320 IF KEY <48 THEN KEY=48 
330 SETCOLOR I , 1 , 2* ( KEY-48 ) 

340 NEXT I 
350 GOTO 290 
360 STOP 
370 END 
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10 REM worksheet: COLORED BOX 

20 PAUSE=80 

30 GRAPHICS 7+16 

^0 COLOR 1 

50 GO SUB 200 

60 FOR HUE=0 TO 15 

70 FOR Ll)M=0 TO 14 STEP 2 

80 SETCOLOR 0 , HUE , LUM 

90 GOSUB 300 : REM PAUSE 

100 NEXT LUM 

110 NEXT HUE 

120 GOTO 60 

200 REM DRAW SQUARE 

210 PLOT 90,50 

220 DRAWTO 90,30 

230 GOSUB 300 : REM PAUSE 

2-10 DRAWTO 70,30 

250 GOSUB 300 t REM PAUSE 

260 POSITION 70,50 

270 POKE 765,1 

280 XIO 18,*6,0,0,"S:" 

290 RETURN 

300 FOR P=1 TO PAUSE: NEXT P 
310 RETURN 
320 END 
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10 REM worksheet; color manipulation 

20 REM MANIPULATES BORDER AND DISPLAY SCREEN COLORS , 
30 PRINT " M : REM ESC KEY FOLLOWED BY SHIFT CLEAR ♦ 

4 0 reg=z;rem PLAYFIELD 1 
50 GOSUB 200 
60 SETCOL-QR 2,0 ,0 

70 reg=4;rem background 

80 GOSUB 200 

90 SETCOLOR 4,0,0 

100 GOTO 't0 

200 FOR HUE=0 TO 15 

210 FOR LLJM=0 TO 14 STEP 2 

220 SETCOLOR REG , HUE , LUM 

230 FOR PAUSE=1 TO 30 X NEXT PAUSE 

240 NEXT LUM 

250 NEXT HUE 

260 RETURN 

270 END 



Copyright Atari, Inc,, 



1983 . 
1 8LP 



All rights reserved. 



r i 



Copyr ight 



COLOR CH A IR: T" 




C O IL- O R 



A paint pot analogy is used to he?lp canpers understand COLOR 
and SETCOLOR f They should learnt 

!♦ what COLOR does* 

2 f how SETCOLOR and COLOR are related f 

3f which color number corresponds to each 
setcolor number * 

^f how to use SEITCOLOR and COLOR in a progran* 

A transparency and student copies of the code used in the 
lesson are available, as are charts that show how the color 
registers are used in each node and how COLOR and SETCOLOR 
are related* 



Activity 1 : 1 

If Tell canpers that COLOR is used to select the color 
register you wantf If you want to change the color of a 
point or a line to be drawn, you use COLOR and a number which 
specifies the appropriate color register* 

The analogy often used here is that of a paint pot 
and a paint brush f The color register is Manipulated using 
SETCOLORf The register is like the paint pot where the paint 
is stored f COLOR is the brush you use to dip into the pot 
and draw a point or a line* The page called "USING COLOR" 
has a drawing that represents the paint pot concept f Use it 
with canpers to continue this discussion* 
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USING COL O IR 



PAINT HUES 



0=Grey l=Gold t . ♦ H=Green lS-Oranqe 



PAINT LUMINANCES 0=Dark 



PAINT POTS 



COLOR CHOICES 




♦ ♦ ♦ 



15=Br i ght 



0 



F irst 
(1) 




Second 

( 2 ) 



PAINT BRUSH 




Third 

(3) 




Fourth 

<^> 




Special 

( 0 ) 



HUE = 0 TO 15 
LIJM = 0 To 14 
POT = 0 To 4 



SETCOLOR POT f HUE > LUM 



COLOR CHOICE 



Fills the appropriate pot with 
the paint of the corresponding HUE 
and LUM* 

Dips the paint brush into the 
Corresponding CHOICE* Whatever color 
is in that POT is the color we 
will have on our brush* The color 
in the pot can be changed using 
SETCOLOR or_ we can choose a 
different POT to dip the brush 
into by using COLOR* 



The chart below shows the relationship of the "paint pot" and 
the "paint brush"* 



paint p ot 



SETCOLOR 



SETCOLOR 1,_, 
SETCOLOR Z fmmf 



SETCOLOR 



pain t br ush 
COLOR 1 
COLOR 2 
COLOR 3 
COLOR 0 
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COLOR 

(CONTINUED) 



2. Remind the c3Mpers that when you turn the computer 
on, certain colors are already in the registers* These are 
called default colors* Type the following to illustrate the 
default colors* 

GR* 3 

COLOR 1 

PLOT 4, 2: DRAWTO 36*2 

COLOR 2 

PLOT 4,4:D.RAWTQ 36,4 

COLOR 3 

PLOT 4,6: DRAWTO 36,6 

3* Go back to GRAPHICS 0 and add line numbers to wake 
progr 3M t 



10 


GR* 3 




20 


COLOR 1 




30 


PLOT 2, 2: DRAWTO 


38,2 


40 


COLOR 2 




50 


PLOT 2,4: DRAWTO 


38,4 


60 


COLOR 3 




70 


PLOT 2, 6: DRAWTO 


38,6 



Run the progr an and then add? 

35 SETCOLOR 1,10*7 

and run the progran again. To nore fully illustrate the 
relationship of SETCOLOR to COLOR: 

a* Change the color and/or hue number (10) 
in line 35. 

b. Add: 

15 SETCOLOR 0,_,_ 

55 SETCOLOR 2,_,_ 

filling in the blanks with their choice for 
color and luminance . 

c* Change the number following COLOR in 

line 40 to 0 and run the program* Challenge 
campers to change the COLOR numbers to 
"erase" all of the lines. 
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Activity #2 



COLOR 

(CONTINUED) 



Review the following inforMstion about COLOR and SETCOLOR in 
the various graphics Modes* 



GRAPHICS 3, 5, 
SETCOLOR 
SETCOLOR 2,_,_ 
SETCOLOR 0,_,_ 
SETCOLOR 1,_,_ 
SETCOLOR 2 , _ , _ 



AND 7 

Background 
Text Window 
COLOR 1 
COLOR 2 
COLOR 3 



GRAPHICS 4 AND 6 



SETCOLOR 4 



Eiackgr ound 



SETCOLOR 0,_ t _ COLOR 1 



SETCOLOR 




Text Window 



GRAPHICS 8 
SETCOLOR 2,_,_ 
SETCOLOR 



Border 



1 




v 






4 



The color of the text window is the saMe color as 
the background in this node* 



It is of interest to note that the border is always 
deterMined by color register ^ . The background is determined 
by register ^ except in GRAPHICS 0 and GRAPHICS 8* In those 
Modes it is register 2 that deierwines the color. 
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(CONTINUED) 



Activity '-8 : 3 

If the steps in this activity are followed as they are 
written* the effect of COLOR 0 should be apparent* 



1* Type in the following program and run it* 

10 GR* 5+16 
20 COLOR 1 ‘ 

30 PLOT 4*4 
40 DRAWTO 7 0*4 
50 DRAWTO 70*35 
60 DRAWTO 4*35 
70 DRAWTO 4*4 
90 GOTO 90 



Add these lines* 



75 FOR WAIT = 1 TO 10 0 0 * NEXT WAIT 
80 COLOR 0 



and change line 90 to 
90 GOTO 30 



If necessary explain what GOTO does so that campers see that 
the lines are being erased by drawing then again in the 
background color ♦ 



2* Challenge the canpers to write at least one of the 
following programs* 

a* Draw a box whose sides are different colors* 

b* Draw a figure in GRAPHICS 8 ♦ hake the 
background color and the border color 
different froM that of the figure and 
different fron each other* 

c* Draw a figure that erases itself* 

Start with GRAPHICS 7 and then change the 
progran to use GRAPHICS 3 and then 
GRAPHICS 5* Compare the results* 
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C O IL_ O IF: ACTIVITIES 

C iFi ih-S IF- IE*. IF: C O IF’ Y 



GR. 3 
COLOR 1 

PLOT ^1, 2 ‘.DRAWTO 36,2 
COLOR 2 

PLOT DRAWTO 36, ^ 

COLOR 3 

PLOT 'l, 6*. DRAWTO 36,6 



10 

20 

30 

^0 

50 

60 

70 



GR, 3 
COLOR 1 



PLOT 2,2* DRAWTO 


38,2 


COLOR 2 




PLOT 2, DRAWTO 


38,^ 


COLOR 3 




PLOT 2, 6*. DRAWTO 


38,6 



Run the progr3M and then addt 



35 SETCOLOR 1,10,7 

Run the progr3M again and then addJ 

15 SETCOLOR 0,„,_ 

55 SETCOLOR 2,_,_ 



filling in the blanks with your choice for 
color and luMinance. 



Change the nunber following COLOR in line ^ 0 to 0 
and run the progran. 

See if you can change the COLOR nunbers to 
"erase" all of the lines on the screen. 



1983. 

T25L.P 



Copyright Atari, Inc., 



All rights reserved. 



C O L O if: A O T DC KJ X. T HI BE! S 

C A M IF‘ IE: IF: C O IF’ Y 



10 GR. 5+16 
20 COLOR 1 
30 PLOT 4,4 
40 DRAWTO 70,4 
50 DRAWTO 70,35 
60 DRAWTO 4,35 
70 DRAWTO 4,4 
90 GOTO 90 . 

Add these lines: 

75 FOR WAIT=1 TO 1000JNEXT WAIT 
80 COLOR 0 



and change line 90 to* 
90 GOTO 30 



challenge: 

Write a program for one of the following: 

a* Draw a box whose sides are different colors, 

b. Draw a figure in GRAPHICS 8, Hake the 
background color and the border color 
different froM th3t of the figure and 
different froM each other, 

c. Draw a figure that erases itself. 

Start with GRAPHICS 7 and then change the 
progrsw to use GRAPHICS 3 and then 
GRAPHICS 5, Comp are the results. 
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The purpose of this lesson is to introduce the use of the 
SOUND command* When campers finish this lesson they should l 

It know the form of the sound command* 

2* know how pitch, distortion, and 

volume affect a sound that is produced* 

3* have added several sound effects subroutines to 

their subroutine library* These will be provided 
in the lesson as examples of how sound effects are 
made ♦ 

^* be able to use the SOUND command to create 
sound effects and musical tones and chords* 

Because of the time factor , we will not cover how to write 
programs that will play music* However, a chart showing the 
numeric values corresponding to two octaves of musical notes 
is provided for campers who are musicians and who might like 
to try some music on their own* 

Before you begin , be sure to tell campers that typing “END” 
will turn off the sound* This is much faster than selecting 
the proper sound register and setting the values to 0,0,0* 
They will not use END within their programs* It will be used 
when experimenting in immediate mode, or after a program is 
run and the sound is still on* 

*9 

CAUTION - If you don't like cacophony, this 

lesson could be hazardous to your health* 

Before you begin, you might want to 
establish some ground rules for volume 
control and signals for your wanting to speak* 

Activity =frl 

1* Experiment with the SOUND command* Try the 
f o 1 lowing t 



SOUND 0,50,10,6 

Change the pitch number (50) to see its effect* Then change 
the distortion (10) amd volume (6) numbers to determine what 
their purpose is* Introduce 

SOUND 0 , 0 , 0 , 0 

to turn off the sound* Then tell campers that typing "END" 
will also turn off the sound* 
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S O ILI iN! E> 
(CONTINUED) 



2* Now try this* 

SOUND 0,100,10,5 
SOUND 1,150,10,5 
SOUND 2,200,10,5 
SOUND 3,250,10,5 

Talk about the four sound registers, numbered 0-3, that nay 
be used to nake sounds* It nay be conpared to using four 
part harnony when singing songs* Each of the registers would 
be a voice* Tell what the four nunbers represent* 



Register 



Pitch Distortion 
SQUNU’0,1'0 0,10,5 



VoluMe 




The values that can he used in each position are! 



Register 

Pitch 

Distortion 

Uolune 



0-3 
0 - 255 

0 - 14 (Even nunbers) 
0-15 



Talk about pitch and distortion, keeping in nind that there 
will be other exanples in the lesson to help canpers 
understand what these terns nean* 



Activity ♦ 2 



1* Try this progran and then discuss what it does* If 
the group does not understand variables, do not do an in 
depth lesson on that concept* The inportant thing here is 
that they know that the value in the position that selects 
the pitch is changing* 



10 FOR PITCH=G TO 255 
20 SOUND 0, PITCH, 10, 10 
30 NEXT PITCH 
4 0 END 



Add: 

40 FOR PITCH=255 TO 0 STEP -1 
50 SOUND 0 , PITCH, 10 , 10 
60 NEXT PITCH 
70 END 



and run the progran* 
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S O II I iM D 

(CONTINUED) 

2. Change the prograM in *1 so that the distortion 
values are different and run it. Discuss the effect of 
distortion and point out that a value of 8 or 10 produces 
pure tones that we use in writing Music. 

3. Type in the following and run it for fun. 

100 FOR C0UNT=1 TO 3 

200 FOR PITCH=1 TO 255 

300 POKE 710,P: SOUND 0,P,10,5 

400 FOR WAIT=1 TO 5 J NEXT WAIT 

500 NEXT PITCH 

600 NEXT COUNT 

Activity 13 

On the BASIC Utility Disk there is a prograM called 
"SOUNDS" that Might help sone students who .do not understand 
the Meaning of pitch and distortion. Run it fron the disk 
using the coMMand, RUN "D 5 SOUNDS", and discuss how the sounds 
changed as the input to the prograM changed. 

Activity =14 

If canpers want to try to write a short tune, they could 
do so as an individual activity. This can be a very tine 
consuMing process, but May be of interest to soMe. A delay 
loop Must be used after each "note" played in order to hear 
the note. An exaMple follows. 

10 SOUND 0,81,10,8 

20 FOR DELAY=1 TO 30 0i NEXT D 

30 SOUND 0,64,10,8 

40 FOR DELAY=1 TO lOOiNEXT D 

50 SOUND 0,53,10,3 

60 FOR DELAY=1 TO 50 0J NEXT D 

70 SOUND 0,64,10,8 

A chart called "MUSICAL NOTES" is available for use in this 
project. A More coMprehensive chart is on page 391 of Y o u r 
Atar i Computer . 

NOTE; t Delay loops are very tricky in E:ASIC because a 
FOR.. NEXT loop near the top of a prograM executes Much faster 
than one near the bottoM. TiMing can be Made More consistent 
by using the sane FOR.. NEXT loop, which is in a subroutine 
for the sole purpose? of creating a delay. In this activity, 
the delay loops were purposely inserted after each line with 
a SOUND coMMand to visually reinforce the fact that a delay 
Must occur after each "note" in order to hear it. 
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M 11 I SICA II O T EZ S 



PITCH 


VALUE 


c 


60 


E: 


64 


A or B 


68 


A 


72 


G or A 


76 



HIGH 


G 




• 


81 


NOTES 


F 


or 


G 


85 




F 






91 




E 






96 




D 


or 


E 


102 




D 






108 




C 


or 


D 


114 


MIDDLE 


C 






121 




B 






128 




A 


or 


B 


136 




A 






144 




G 


or 


A 


153 




G 






162 




F 


or 


G 


173 


LOW 


F 






182 


NOTES 


E 






193 




D 


or 


E 


204 




D 






217 




C 


or 


D 


230 




C 






243 
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E X F- E Ft HI M IEZ iM T WITH SOUN O 

(CAMPER COPY) 



1. Experifient with the SOUND coMMand. Try the 
following* 

SOUND 0,50,10,6 

Change the pitch number (50) to see its effect. Then change 
the distortion (10) and voluMe (6) numbers to determine what 
their purpose is. Uset 

SOUND 0,0, 0,0 

to turn off the sound. 



2. Now try this. 

SOUND 0,100,10,5 
SOUND 1,150,10,5 
SOUND 2,200,10,5 
SOUND 3,250,10,5 

There are four sound registers, numbered 0-3, that may be 
used to make sounds. It may be compared to using four part 
harmony when singing songs. Each of the registers would be a 
voice. This is what the four numbers represent. 

'9 

Register Pitch Distortion Volume 




The values that can be used in each position are* 



Register 
P itch 

Distortion 
Vo 1 u«e 



0-3 
0 - 255 

0-1^ (Even numbers) 
0-15 
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SOU iNi o ACTIVITIES 

(CAMPER COPY) 



10 FOR PITCH=0 TO 255 
20 SOUND 0 , PITCH *10*10 
30 NEXT PITCH 
40 END 

Add t 

40 FOR PITCH=255 TO 0 STEP -1 
50 SOUND 0, PITCH, 10, 10 
60 NEXT PITCH 
70 END 

and run the progran, 



100 FOR COUNT=l TO 3 

200 FOR PITCH=1 TO 255 

300 POKE 71 0,Pt SOUND 0,P,10,5 

400 FOR WAIT=1 TO 5 1 NEXT WAIT 

500 NEXT PITCH 

600 NEXT COUNT 



10 

20 

30 

40 

50 

60 

70 



SOUND 0,81,10,8 

FOR DELAY=1 TO 300:NEXT D 

SOUND 0,64,10,8 

FOR DELAY=1 TO 100JNEXT D 

SOUND 0,53,10,3 

FOR DELAY=1 TO 50 0 t NEXT D 

SOUND 0,64,10,8 



1983* 

T32LP 



Copyright Atari, Inc*, 



All rights reserved* 



MODULE *3 



VARIABLES 



OBJECTIVES 

Know what a variable is* 

Know how to use numeric and' string variables* 

Be able to write a program using INPUT* 

Know how to generate random numbers using RND and INT ♦ 

MATERIALS REQUIRED 

BASIC Cartridge 

Camper's Personal Diskette 



REFERENCES 

Inside Atar i Basic » pp* ^O-'H 

Your Atar i Computer » pp. 6^-65* 83-95* 108-110 



CONTENT 

There are four lessons in this module* Campers will be 
saving more of the programs that they use* No screen 
formatting h3s been done in the programs* That is left for 
the campers to do as an exercise* GOTO is included even, 
though it has not been formally introduced* 

Lesson 1^ - Variables 

Pages 1-3 

New Statements 

DIM NAME$ = " " 

Materials 

BASIC Cartridge 

The concept of a variable is the focus of the 
lesson* Campers should know th3t a variable is 
the name for a place into which values may be 
stored* Both numeric and string variables are 
introduced . 
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Lesson 



LET 




Pages *\- 7 - 

New Statements 

LET ? (for PRINT) 

Prerequisite Statement 
DIM 

Materials 

E:ASIC Cartridge 

Camper's Personal Diskette 

Introduces the LET statenent* Reviews 
variables and covers the rules for legal variable 
names * 



Lesson 3 - INPUT 

Pages 8-1^ 

New Statements 

INPUT ? #6? 

Prerequisite Statements 

COLOR DIM ? GR* SETCOLOR 

Materials 

BASIC Cartridge 

Camper's Personal Diskette 

Campers are given a varitey of programs to 
show how INPUT allows the person using the program 
to put in their own values* Uses numeric 
and string variables* Ends with several 
programming challenges* 



Lesson 4 - FUNCTIONS RND & INT 



Pages 15-16 

New Statements 
RND INT 

Materials 

BASIC Cartridge 

Gives a brief introduction to the RND and INT 
functions * 
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V A, FC :i: ft IE" L i&I s 



E v e ri i f s t u d e n t s h a v e h a d s> o m e 0 x p e r i e n c e u s i n g 
variables , it would be beneficial to do the activities in 
this lesson * It is possible to use variables in programs and 
yet not understand the underlying concept of a variable* If 
campers do not have a clear under standing of variables * it is 
likely that they will be-? hopelessly confused when they are 
introduced to arrays and other data structures* 



The concept of a variable is the focus of 
Students should know that a variable is a name 
into which values nay be stored* 



this lesson* 
f o r a pi a c e 



Activity # 1 
• 

1* This activity should help campers remember that a 
variable is the name of a place where a value is stored* 
Have half of the group be variable demonstrators* We will 
only consider numbers at this point* 



2* Use the campers' names as the variable names* Have 
other campers give a numeric value (written on a piece of 
paper) to each camper who is a variable demonstr ator ♦ As 

each value is delivered say > "The var iable named now 

has the value of * " Explain that variables are assigned 

(or given) values* They are* not the same as ( ~ to) the value 
they are given* You might even say* for example* that Debbie 
is not equal to S>he has been given the value of ^* 



o 

O * 



Next* deliver new values to the variables* Explain 
that the old values are to be thrown away before the new 
values are assigned* Have the demonstrators actually throw 
away the paper with the old value* 



^ * Now use the 
demonstrate the same 



computer 
concept ♦ 



in immediate mode to 
Type in the following* 



PRINT NUN 
NUM~:L 0 
PRINT NUM 
NUM- 1 000 
PRINT NUM 
NUM=NUM+NUM 
PRINT NUM 



Point out that the value 0 is 
when the machine is turned on 



stored in 



a n u m e r ic v a r i a b 1 e 



Copyr ight 



A t a r 



1 



I n c 



♦ * 
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(CONTINUED) 



A e t i v i t m 1 2 

1. In this activity cawpers will use string variables 
-::s s well as nuMeric variables* A drawing called "VARIABLES 
ACTIVITY : 1 : 2" is provided* 



n 

i... * 



Use the drawing to show the difference in the forms 
of string and numeric variables* Be sure to point out that 
variable names nay not contain a space* Thus* H GUM ANY is one 
word* The drawing is designed to illustrate the fact that 
numeric variables only have one box* String variables Must 
have a box for each character and the nuwber of boxes 
necessary Must be stated in a program before the string 
v a r i a b 1 e i s u s e d * 



3* Fill in the boxes labeled NUH and HOWMANY with 
larger numbers* Have campers suggest another name to put in 

NAME$ and an answer to a question that is 
less to put in the box labeled ANSWEIR$* 
t o t h e r i g h t o f e a c h s t r i h g v a t v i a b 1 e bo x ♦ 
the values in each of the boxes > reinforce 



the-? box labeled 
nine letters or 
Explain the DIM 
When you change 



the fact that when a new value is assigned to a variable? the 
old value is “thrown out" ♦ 



^* Use the computer in immediate mode to demonstrate 
how to use string variables* Instruct campers that when an 
assignment is made to a string variable* quotation marks must 
b e u s e d * T y p e i n t h e follow i n g * 

DIM NANE$ < 6 ) 

NAME$=" GEORGE" 

PRINT NAME$ 

NAME$=" CAROL “ 

PRINT NAME* 

Try a name that has more than 6 letters to see the error in 
dime n sio n * 
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a c ~r x 'u ~r x 'v 



♦ 



jK. 



> 






DIM NAME:* (5) 




DIM ANSWER* <9 ) 



DIM NAME* (6) 
NAME*=" GEORGE" 
PRINT NAME* 

NAME*= " CAROLE" 
PRINT NAME* 



C o p y r i 9 , h t A t a r :L , 
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L EE ~T 



R eview 
1 esson * Be 



v a r :L ables 
sur e that 



b 0 f o I s e b 0 g i ri n i n g 
caMpers know the 



t h e a c t i v i t i e a 
following^ 



in this 



1 



♦ 



Numeric variables May be used 



only with numbers ♦ 



2* String variables can store any character ♦ 
be given a dimension and the value assigned to the 
Must be enclosed in quotation Marks* 



They Must 
var iabl e 



3* Variable nanes Must start with a letter* Reserved 
words such as LIST # RUN#. PRINT# LOAD# etc* May not be used as 
variables* 



Introduce the LET stateMent* It is iMportant that LET 
be used at first# so that caMpers are reMinded that LET A=5 
Means "Let A be given the value of 5"# not "A equals 5"* 
not skip the discussion of each program* That is when 
learning will take place for Most students* 



Do 



A transparency and individual student copies of the code 
used in the activities are available* 



Activity #1 

».n .. . wJ+tm ■— 



Type in the following prograM and run it* 
caMpers to use the BREAK key to stop the prograM 
what happens to the variable COUNT in each line* 



Instruct 
♦ Discuss 



5 REM A counting prograM* 

10 LET COUNTED 
20 LET C0UNT=C0UNT+1 
30 PRINT COUNT 

^0 REM Line 50 says go back to line 20* 
50 GOTO 20 



If 



necessar ^ 






review the effect of GOTO in line 50 
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L E 1“ 

(CONTINUED) 



Activity 1 : 2 



This program provides practice using riuneric 
Type it in and run it t Then discuss what happens 
line*. The "?" is used for the first tine to nean 
Discuss this abbreviated PRINT statement with the 
before they begin* 



var iables * 
at each 
PRINT* 
campers 



(Type NEW to clear Memory*) 



5 REM Practice using numeric variables* 
10 LET N U M 1 == 5 
20 LET NUM2=7 
30 LET NUM3=NUM 1 + NIJM2 
^0 LET N U M l \ ~ N U M 1 * N U M 2 
50 ? "NUM1 = m ;numi 
6 0 ? M NUM2 = " J NUM2 
70 ? NUM 1 J " + " J NIJM2 \ 11 == M l NUM3 
8 0 ? NUMir , * , '}NUM2J ,, = ,, JNUM^ 



Ask cswpers to change the values in NUM1 and NLJM2 and run the 
program again* To further illustrate what happens with 
variables#, change NUM3 in line 7 0 to NIJM^ and run the program 
a g 3 i ri ♦ 



Activity ±3 

Practice using string variables* Campers should use 
their own n awe in line 30* Be sure to leave a space before 
the word "is" in line ^0* 

(Type NEW to clear Memory* ) 



.5 P EM Practice u s i n g string v a r i a b 1 e s * 
10 DIM NAME* (15) 

2 0 LET NAME* : = “ 

30 ? NAME* t 



1 1 



n. 



0 



» I 
r 



i s 1 e 3 r ri i n g abo u t var i a b 1 e s * ' ' 



Change the nane used in line 20 and run the progran again* 



C o p y r i g h t A t a ri# I n c * # 1 ? 3 3 

5 L. P 



A 1 1 rig h t s r e s e r v e d * 



l e: t 
( continue:!:)) 



Activity #4 



Thi 

pri nted 
then to 
n u n b e r s ♦ 



s activity illustrates the fact that nunerals can be 
as strings* but they Must have quotation narks around 
tell the coMputer that they are numerals and not 
Any nano? nay be used in lino? 20* 



(Typo? NEW to clear nenory*) 

5 REM Using nunbers in strings* 

10 DIN NAME* (15) 

20 LET NAME*~ , L " 

30 ? "HI! MY NAME IS " J NAME*;" ♦" 

40 ? “SEE HOW FAST I CAN COUNT TO 10!" 
50 DIM NUMS* ( 25 ) 

60 LET NUMS*="1 2315678? 10" 

70 ? NIJMS* 



ACTIVITY 




This 
us i ng LET 
before or 



activity shows that assignment nay be nade without 
It nay be necessary to discuss what an average is 
after the progran is run* 



(Type NEW to clear nenory*) 



10 
20 
3 0 
40 

5 0 

6 0 
70 



N 1 = 
N2 = 
N 3 = 
N 4 * 
N 5 = 

N 6 ” 

0 •• 

1 * 



Assignnent without LET t Calculating averages 

7 

8 
10 

1 0 5 
1 0 0 0 

(N1+N2+N3+N4+N5) 

The average of 



1 1 



/ c:; 

♦ 

9 



N 1 



1 1 



N4 



1 1 



and 



1 1 



N5 



1 1 



<• 1 1 
f 

i s 



1 1 



1 1 

* 

t 



N 



*•> * 
xL * 



1 1 



N6: " 



9 
1 1 



N3 
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(PROGRAMS FOR PRACTICE) 



5 REM A counting program. 

10 LET COUNT=0 
20 LET COUNT=COUNT+ 1 
30 PRINT COUNT 

^ 0 REM Line 50 says go back to line 20. 
50 GOTO 20 



5 REM Practice using numeric variables. 
10 LET NUM 1 =5 
20 LET NUM2=7 
30 LET NUM3=NUM1+NUM2 

^0 LET NUM4=NUM1*NUM2 

50 ? "NUM1 = " J NUM1 
6 0 ? "NUM2 = "; NUM 2’. 

70 ? NUM1 ; " + " JNUM2; " = ?NUM3 
oo ? numi; ,, *";num2; h ~";num4 



5 REM Practice using string variables. 
10 DIM NAMES ( 15 ) 

20 LET NAMES 13 " " 

30 ? names; 

^0 ? " is learning about variables." 



5 REM Using nunbers in strings. 

10 DIM NAMES (15) 

20 LET NAME$=" " 

30 ? "HI! MY NAME IS "J NAMES;"." 

^0 ? "SEE HOW FAST I CAN COUNT TO 10!" 
50 DIM NUMSS ( 25 ) 

60 LET NUMSS=" 1 23^5678910" 

70 ? NUMSS 



10 
20 
30 
«0 
50 
6 0 
70 



REM Assignment wi thout LET ? Averaging* 

N 1 = 7 
N 2 = 8 
N 3 = 10 
N^== 105 
N 5 = 1 0 0 0 

N6= ( N1+N2+N3+N*KN5 ) /5 

? “The average of “ ; Nl}", " ;N2J" , “ JN3; 

", and “ JNSJ “ is n ;N6;“*“ 



C o p y r i g h t Atari,. I n e ♦ , 



1983 ♦ 
T7LP 



A 11 r i g h t s r e s e r ved* 



X iN5 F" ILP X 



Camp er s 
INPUT allows 
v a 1 u e s * 



will be given a variety of programs 
the person using the program to put 



to show how 
in their own 



It is necessary that nuweric and 
understood before doing this lesson* 



s t r i ri g 



variables be 



i j s e d 



A transparency and individual student copies 
in the activities is available* 



of t h e code 



A c t i v i t y ft 1 



Type in and 



run the following program* 



5 REM Asks for a name* Uses string input* 
10 DIM NAME* <2Q> 

20 ? “What is your first name"? 

30 INPUT NAME* 

H 0 ? “HI* “JNAME$t“* I'm happy to make 
your acquaintance ♦ “ 



Try the program without line 20 to show the importance 
of using a question or statement to prompt the user for the 
proper inf or mat ion ♦ 



Activity. #2 



Refer to the program used for Activity ft 5 in the LET 
lesson* It averages five numbers* In this activity f campers 
will type in a program that allows them to select the five 



n i j m b e r s 



A s k 



be av 


5 


REM 


10 


'P ii 


20 


^ 1 1 
r 


30 


? “ 


HO 


'p 1 1 


5 0 


IMP 


60 


A U E 


70 


1 1 
r 


s 


t O 3 


e d 


3 S 



Averaging program with INPUT 



1 1 



nurtbers in with cqmmss between then- 
like this 10,3,^0,70,90." 



= ( N U M 1 + N U M 2 + N IJ M 3 + N U M 4 + N Li M 5 ) / 5 

The average of your numbers is "JAVEJ 



1 1 



II 1 1 
* 
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(CONTINUED) 



Activity #3 



This progrsn accepts s nuneric 
person's age in the year 2001 * 



INPUT 



and calculates a 



5 REM Calculates age in the year 20 01 
10 ? "Have you ever wondered how old you" 

20 ? "will be in the year 2001?" 

30 ? "This prograM will do the necessary" 

40 ? "calculations for you very quickly*" 

50 ? "Enter your sge*." » 

60 INPUT AGE 

70 ? "What year is it? (Be sure to use all" 

80 ? "four nuMberst eg* 1983)"? 

90 INPUT YEAR 
100 ANSWER=20 Q 1-YEAR+AGE 

110 ? "In 2001, you will be "? ANSWER?" years old 



1 1 



Challenge canpers to change the progrsM^ so that a user nay 
input another year besides 2001 ♦ 



Activity J4. 



There are two programs in this 
In one f a graphics node (0* 1 1 or 2 
word that appears on the screen nay 
progran involves changing values in 
canpers are not faniliar with Atari 
will need sone explanation* 



activity that use INPUT* 
nay be? selected and a 
be changed* The second 
the SETCOLOR connand* If 
graphics t the prograns 



The 

GRAPHICS 



first progran changes the background color 
3* 



in 



10 
20 
30 
40 
5 0 
60 
70 
SO 
90 
100 
110 



REM This progran allows the user to 
R E M c h a n g e t h e h u e a n d 1 u n i n a n c e v a 1 u e s 
R El M i n a? S El T C 0 L 0 R c o n n a n d * 

? “In t h i s p r o g r a? n y o u w i. 1 1 b e a b 1 e to" 

1 ' c h a?. n g e t h e c o 1 o r of t h e b a* c k g r o u n d o n 



r 



\ I 



I I 



the screen 



1 1 



? “Choose a 
INPUT HUE 



n u n b e r 



(0-15) for 



<*.. 



t h e n u e 



« » * 

* 






“Choose a n u n b e r (0-14) f o r 
INPUT LUM 



the 1 u n i n as n ce“ t 



GR* 3 

SETCCLOR 4 f HUE * LUM 
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(CONTINUED) 



The next prograw allows the grsphics m o d e and text 
displayed on the screen to be changed ♦ 



cr 

10 

20 

3 0 

4 0 
50 
60 
70 
80 
90 

100 

120 

130 

140 

150 

160 

170 

180 

180 



7 



r 



REM This program allows the user to 
REM change the graphics node to 
REM display different sizes of text on 
on the screen* It also allows the 
user to change the text on the screen* 

? "In this progran t you will be 3b le to" 

"enter a number from 0 to 2 for the-?" 
graphics Mode and a word that you" 
want to display*" 

What graphics node would you like"? 

INPUT MODENUM 

? "You nay display any word up to 15 letters*" 
? "What word would you like to display"? 

DIM W0RD*<15) 

INPUT WORD* 

GR* MODENUM 
COLOR 2 
POS ♦ 5 t 6 
? *6? WORD* 



1 1 



> i 



1 1 



Activity #5 

This program uses INPUT with string variables to create 
a sentence generator* Discuss the fact that a‘1'1 the string 
variables are given dimensions at the beginning of the 
program and with one DIM statement* 



cr 

10 
2 0 
30 
4 0 
50 
6 0 

7 0 

8 0 
90 

100 

110 

120 

130 



noun: " ? : INPUT NOUN* 



o 



1 1 



REM This program uses string variables to 
REM create a sentence generator* 

DIM NOUN* (15), VERB* ( 15 ) , AD J* ( 15 ) , N0UN2* < 15 ) 
? "Please enter a plural n u»-«ii* , 

? "Now enter a verb that goes with 
? "plural noun ? " ? S INPUT VERB* 

? "Next enter an adjective* Remember 
? "that an adjective is a word" 

? "that descr i b e s a n o u n * 

? " F i n a 1 1 y , e n t e r a n o t h e r 
INPUT N0UN2* 

? "Did you know that 
? NOUN*?" " ? VERB* ? " 



* i 



1 1 * 



INPUT ADJ* 
P 1 ur a 1 noun $ 



» i * 

t 



1 1 ♦ 
t 



ii * 
♦ 



? adj$; 



* 1 1 



1 1 * 
* 



N0UN2* ? " 



^ I » 



Run the program and see if the sentence generated makes 
sense* If it does not, have? campers try to input words that 
w i 1 1 m a k e sense* T h e n a s k if they can r e w r i t e t he program to 
be sure that proper sentences are generated* 
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X iM IF- U ~T 
CAMPER COPY 



5 REM Asks for s nafie . Uses string input. 
10 DIM NAME* (20) 

20 ? "What is your first n 3 m e " ? 

30 INPUT NAME* 

AO ? "HI t " *NAME**"» I'm happy to Make 
your acquaintance . " 



5 REM Averaging progran with input. 

10 ? "This prograM will calculate the average" 

20 ? "of any five numbers you choose. Type the" 
30 ? "nuMbers in with comm3s between then — " 

A0 ? "like this 10 ,3, A0 *70 ,90 . " 

50 INPUT NUM1,NUM2*NUM3,NUMA*NUM5 

60 A U E - < NUM1+NUM2+NUM3+NUMA+NUM5 > /5 

70 ? "The average of your nuMbers is "JAUE;"." 



O 

10 
20 
30 
A0 
50 
60 
70 
80 
90 
10 0 
110 



1 1 



REM Calculates age in the year 2001 

? "Have? you ever wondered how old you 

"will be in the year 2001?" 

"This progran will do the necessary" 
1 1 



? 

7 

7 



calculations for you very quickly*" 

<■ 

7 



"Enter your a get " * 



INPUT AGE 

? "What year is it? 

? "four nunberst eg* 
INPUT YEAR 

A N 8 W E R = 2 0 0 1 -YEA R + A G E 
? "In 2001, you will 



< E‘« e s u r e t o u s e all" 
1983 ) " ; 



b gt " 1 A N S W E R t " years o 1 d ♦ 



1 1 



1983. 
T 1 1 L_ P 
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(CAMPER COPY CONTINUED) 



5 REM This program allows the-? user to 
10 REM change the- hue and luminance values 
2 0 REM in a SETCOLOR connar.d* 

30 ? "In this program you will be able to" 

40 ? "change the color of the background on" 

50 ? "the screen ♦" 

60 ? "Choose a number (0-15) for the hue"? 

70 INPUT HUE 

80 ? "Choose a number (0-14) for the lumi nance"; 
90 INPUT LUM 
100 GR ♦ 3 

110 SETCOLOR 4, HUE, LUM 



10 
20 
30 
4 0 
50 
60 
70 
80 
90 
100 
1 2 0 
130 



REM This program allows the user to 
REM change the graphics node to 
REM display different sizes of text on 
REM on the screen ♦ It also allows the 
REM user to change the text on the screen* 

? "In this program, you will be able to" 

? "enter a number from 0 to 2 for the" 

? "graphics node? and a word that you" 

? "want to display*" 

? "What graphics node would you like"? 

INPUT MQDENUM 

? "You nay display any word up to 15 letters* 
? " W h a t w o r d w o u 1 d y ou 1 i k e t o d i s p '1 a y " ; 



140 


DIM WORD* (15) 


1 5 0 


INPUT WORD* 


160 


GR* MGDENUM 


170 


COLOR 2 


180 


POS* 5,6 


19 0 


? *6J WORD* 
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(CAMPER COPY CONTINUED) 



5 REEM This program uses string variables to 
10 REM create a sentence generator* 

20 DIM NGUN*<15> ,VERB$<15> , 

ADJ$< 15) t N0UN2$ ( 15 ) 

30 ? "Please enter a plural noun ♦ 11 J X INPUT NGUN$ 
^0 ? "Now enter a verb that goes with a" 

50 ? "plural noun ! “ U INPUT MERB$ 

60 ? "Next enter an adjective* Renerber" 

70 ? "that an adjective is a word" 

80 ? "that describes a noun t “ J X INPUT ADJ$ 

90 ? "Final ly, enter another plural noun»"5 
100 INPUT N0UN2* 

110 ? "Did you know that "t 
120 ? NOUN*?" " JVERB*?" " ; 

130 ? ADJ$;" ";N0UN2$;"? n 
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Choose one the the following tasks and write a prog raw that 
conp 1 etes i t ♦ 



1 ♦ Ask the user to enter five words * Print the nursery 
rhyme below using the words as input* Specify the kinds of 
words you want, so that when you use then to fill in the 
blanks, the nursery rhyne will Make sense* 

Little hiss 

Sat on a 

Eating her and ♦ 

Along C3 mo a 

Who sat down beside her 

And frightened hiss away* 



2* Compute a player's batting average when giver, the 
number of tines at bat, number of hits 3nd r. under of walks* 



3* Save youself tine by writing one forn letter that 
you can send to several people by Just changing the greeting* 
If you want to get fancy, you could also change some of the 
words in the letter* The following is a short example t 



Dear 



How are you, ? I an having a great tine 

at Atari Sunner Canp ♦ 



Sandy 

This could also be used to send a "personalized" nessage to 
everyone in canp* 



4* Ask the user- 
then compute the area 
rect a n g 1 e , t r i a n g 1 e , 



to enter the appropriate dimensions and 



of a geometric figure such as 
c i r c 1 e , or par a 1 1 e 1 ogr an ♦ 



a square, 



5* Use INPUT, LET, at least 3 string variables, and 2 
numeric variables to write a program on a topic of your 
choosing * 



Copyright Atari, Inc*, 



1983* 
141 A 



All rights reserved* 



F r U iM O T HI O iN! S 



Ft M O & 



HI M T 



This lesson is a brief introduction to the RND and INI 
functions ♦ It is presented in this Module because Many of 
the procjraMS in subsequent Modules include these functions ♦ 
Upon completion of the lesson,- campers should be able to use 
the functions to generate random numbers* 

Activit y f-1 

Use immediate mode to experiment with both RND and INT ♦ 
Have campers try the following entries* Compare the numbers 
each of them gets to show the randomness* 

PRINT RND ( 0 ) 

PRINT R N D ( 0 ) * 1 0 
PRINT RND < 0 ) *50 

Now do the same with INT and discuss the results* 



PRINT INK 1*9) 

PRINT INT (30 * 111 ) 
PRINT INT (0 *65) 
PRINT INT ( 100000 *9) 



Activit y #2 

1* Use RND in a program to show the purpose of the 
parts of the function* 

10 NUM=RND<0)*5 
20 PRINT NUN 
30 GOTO 10 



Run the program and examine 



the results * 



2* Change the 5 to other numbers* Note the decimal 
numbers and the fact that the output ranges from 0 to one 
less than the number multiplied times RND<0)* 

3* Change line 10 to* 



10 NUM=RND< 0 )*5+l 



Run the program again and note the difference 
C h a n g e line 10 a g a i n tot 



in the output* 



10 NUM=INT<RND<0)*5+1) 



Run the program* Talk about the possible uses 
in writing programs* 



of RND 



and INT 



Copyr ight Atar i #■ Inc ♦ t 



1983 * 
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PRINT RND < 0 ) *4 
PRINT RND ( 0 ) *1 0 
PRINT RND(0)*5G 



PRINT INT (1*9) 

PRINT INT (30*111) 
PRINT INT (0,65) 
PRINT INK 10 0000 .9) 



10 NUM=RND<0>*5 
20 PRINT NUM 
30 GOTO 10 



10 NUM=RND(0) *5+1 



Run the program again and note 
Change line 10 again tot 



the difference in 



the 



outp ut . 



10 NUM=INT(RND(0>*5+1) 
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MODULE *4 



LOOPS 




OBJECTIVES 

Be able to write s program using FOR. .NEXT. 

Given a nested loop, be able to predict the output* 



MATERIALS REQUIRED 

BASIC Cartridge 

CaMper's Personal Diskette 

REFERENCES 

Inside Atar i Basic - pp. ■TS-SZ 
Your Atar i Computer - pp. 80-86 

Atari ^00/800 Basic Reference Manual - pp. 15-17 




CONTENT 

CaMpers Must know how to use variables to do the 
activities in the Module's four lessons* A BASIC cartridge 
is required for all lessons* 

Lesson 1 - Loops FOR* « NEXT 

Pages 1-3 

New StateMent 
FOR* ♦ NEXT 

Covers counting loops, delay loops, and using 
variables as upper and lower liMits in loops* 



Lesson 2 - Loops - FOR ♦ ♦ NEXT ♦ ♦ STEP 
Pages ^-6 

New StateMent 

FOR. .NEXT. .STEP 

Introduces ESC CTRL-CLEAR to clear screen. Uses 
FOR. .NEXT to assign values to the SOUND 
StateMent ♦ 




| 
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Lesson 3 



Nested Loops 




Pages 7-11 

Shows how to write a program to simulate a 
TAB function* Introduced diagramming loops to 
see if they are nested properly. 



Lesson fj. - GOTO 

Pages 12-13 

New Statement 
GOTO 

"The Allowance Con" illustrates the use of 
GOTO. In the program they ask for an 
allowance of one cent the first week. They then 
ask that the amount he doubled each week 
thereafter with surprising results. 
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L O O F- S 

FOR ♦ » ♦ ME XT 



FOR***NEIXT loops have been part of the code in several 
progr3hs used as examples in previous Modules* CaMpers have 
seen theMt but May not be aware of how they work or when it 
is appropriate to use theM* 

In order to do the lesson, canpers should know* how to 
use variables* Transparencies and individual copies of the 
code used in the lessons are available* 



Activity *1 

Type in the following prograM and run it* 

10 REM FOR* ♦♦NEXT Introduction 
20 FOR COUNT = 1 TO 10 
30 PRINT COUNT 
40 NEXT COUNT 

Discuss how the variable COUNT in line 30 gets its value, and 
how the loop cycles through* Then change line 20 tot 

20 FOR C 0 U N T = 1 TO 20 

and ask caMpers to tell what the prograM will do before they 
run it* Change line 20 tot 

20 FOR COUNT =5 TO 15 

and run the prograM again* Have caMpers experiMent with 
changing the nuMbers in line 20 to see what will work in the 
loop ♦ 



Activity »2 

Type in the-? following prograM and run it* 

10 REM Printing lots of letters* 

20 FOR NUMTIMES= 1 TO 400 
30 PRINT "Z-"J 
40 NEXT NUMTIMES 

50 PRINT "HOOPS! TIME TO WAKE UP*" 

Challenge caMpers to print their nane on the screen in 
different patterns using F0R***NEXT loops and commos* 
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Act i v i ty =1=3 



FOR * ~ * NEXT 
(CONTINUED) 



upper 



The program in this 
limits of the FOR* 



activity will use variables for the lower 
.NEXT loop. Enter and run the following! 



and 



10 REM Using variables and limits 
20 START=1 

30 FOR NUM=ST ART TO 10 
4 0 PRINT NUM 
50 NEXT NUM 



Discuss what START does. Change the value assigned to START and run 
the program. Challenge campers to change the program, so that it asks 
for input from the user and then uses the input to determine the lower 
and upper limits in the loop. Call the upper limit "FINISH" ♦ 



Activity +1 

The following program illustrates the danger of incrementing the 
same variable inside a loop that is used in the loop. Enter and run 
it. Discuss how COUNTER got its value at each step in the loop. 



10 REM Dangerous and improper 
15 REM use of a variable 
20 FOR COUNTERS TO 25 
30 C0UNTER=C0UNTER+1 
40 PRINT COUNTER 
50 NEXT COUNTER 



Activity #5 

Type in the following program and run it. 



10 REM Illustration of a Delay Loop 
20 PRINT "Please wait a moment." 

30 FOR WAIT=1 TO 30001NEXT WAIT 
40 PRINT "Thank you for waiting." 

Discuss the fact that a FOR. ..NEXT loop can tell the computer to do 
nothing for a certain number of times. Since the computer is so fast, 
relatively large numbers must be used in the loop. Have campers 
experiment with the upper limit to see the effect of different values. 



NOTE X Delay loops are very tricky in BASIC. A FOR ♦ . NEXT loop at the 
top of a program executes much faster than one near the bottom. 
Timing can be made more consistent by putting the loop in a 
subroutine . 
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LOOPS 

F" o Ft * » ♦ m e: x nr 

(CAMPER COPY) 



10 REM FOR. ..NEXT Introduction 
20 FOR COUNT=i TO 10 
30 PRINT COUNT 
‘‘tO NEXT COUNT 



10 REM Printing lots of letters* 

20 FOR NUMTIMES=1 TO 400 
30 PRINT "Z-"J 
40 NEXT NUMTIMES 

50 PRINT "WOOF'S! TIME TO WAKE UP*" 




10 REM Using variables and Units 
20 START=1 

3 0 FOR NUM=ST ART TO 10 
40 PRINT NUM 
50 NEXT NUM 



10 REM Dangerous and inproper 
15 REM use of a variable 
20 FOR COUNTER=l TO 25 
30 COUNTER=COUNTER+l 
40 PRINT COUNTER 
50 NEXT COUNTER 



10 REM Illustration of a Delay Loop 
20 PRINT "Please wait a noMent." 

30 FOR WAIT--1 TO 30001 NEXT WAIT 
40 PRINT "Thank you for waiting." 
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Activity $ 1 

Type in the-? progran and run it* 



10 REM Illustrating STEP 
20 FOR COUNTS TO 20 STEP 2 
30 PRINT COUNT 
^0 NEXT COUNT 



Erie sure canpers understand what STEP does* Then ask the* to 
experiment with changing the value used with STEP to other 
numbers ♦ 

Add line 15 and change line 20* 



15 NUMSTEP=4 

20 FOR C0UNT=1 TO 40 STEP NUM 



Activity *2 

In this activity* campers will examine a program using 
INPUT to assign values to the limits of the FGR***NEXT loop 
and to STEP* Enter the following and run the program* 

10 REM Using variables with STEP and FOR***NEXT 
20 PRINT "By what number would you like to" 

30 PRINT "count?"; 

4 0 INPUT COUNTRY 

50 PRINT "Let me think***" 

60 FOR WAIT-1 TO 3000: NEXT WAIT 
70 PRINT "OK* I will count by "} COUNTRY 
SO FOR COUNTERS TO 50 STEP COUNTRY 
90 PRINT COUNTER 
100 NEXT COUNTER 

Discuss the program and then challenge campers to write a 
program that will allow the-? user to input not only the STEP 
value* but 3lso the limits of the FOR***NEiXT loop* They 
should ask for a starting number and an ending number and 
call those values "START" and "FINISH" respectively* 
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* m ie: x. t . s ~r e f- 

( CONTINUED) 



Activit y #3 

Type in end run the following program* The? ESC 
CTRL-CLEAR is used in the program to clear the screen (Line 
20 ) ♦ 

10 REIM A program to count backwards 
20 PRINT "T":REM Clears screen 
30 "***C0UNTING BACKWARDS***" : PRINT 
^0 PRINT M F : 'lease give Me a number " 

50 PRINT “between 2 and 100 ♦ “ ; 

60 INPUT NUMJ PRINT 

70 PRINT “Counting backwards can be furu“ 

80 PRINT “Starting with “;NUM;“ and ending with 
1 ♦ “ : PRINT 

90 FOR WAIT=1 TO lOOOtNEXT WAITtREM Delay loop to 
allow time to read 
100 FOR CQUNTER=NUM TO 1 STEP -1 

no print counter;" “; 

120 NEXT COUNTER 

130 PRINT t PRINT; REM Advances before starting the 
program again* 

1^0 GOTO ^0 ;REM Ask for another input 

Discuss the FOR***NEXT loop in lines 100 to 120* Have 
campers change the value used with STEP to reinforce its 
effect in the program* 



Activity 

The following program gives an excellent demonstration 
of incrementing and decrementing steps* Type it in and run 
it* 

10 REM Sound demo of STEP 
20 FOR PITCH=G TO 255 STEP 1 
30 SOUND 0 * PITCH >10,10 
40 NEXT PITCH 

50 FOR PITCH =255 TO 0 STEP -1 
60 SOUND 0 * PITCH *10*10 
70 NEXT PITCH 

Run the program* Ask campers to change the values used with 
STEP in both lines 20 and 50 and listen to the effect* 
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F" O IF: 



L_ O O F' S 

. * ii'si e: x t 

(CAMPER COP 



3 T" IE IF 



Y ) 



10 R El M 1 1 1 u s t r 3 1 i n <3 S T E P 
20 FOR COUNTS TO 20 STEP 2 
30 PRINT COUNT 
40 NEXT COUNT 

Add line 15 and change line 20. 

15 NUMSTEP=4 ' 

20 FOR COUNT=l TO 40 STEP NUM 



10 REM Using variables with STEF' and FQF>:...NEXT 
20 PF<INT "By what nuwber would you like to" 

30 PRINT "count?" ; 

40 INPUT COUNTBY 

50 PRINT "Let Me think..." 

60 FOR WAIT=1 TO 3000;NEXT WAIT 
70 PRINT "OK, I will count by "JCOUNTBY 
80 FOR CQUNTEF<=0 TO 50 STEP COUNTBY 
90 PRINT COUNTER 
100 NEXT COUNTER 



10 F<EM A progran to count backwards 
20 PRINT "f" t REM Clears screen 
30 "***COlJNTING BACKWARDS***" j PRINT 
40 F'F<INT "Please give ne a nunber" 

50 PRINT "between 2 and 100, " ; 

60 INPUT NUM J PRINT 

70 PRINT "Counting backwards can be fun," 

80 PF<INT "Starting with "JNUMJ" and ending with 
1 . " t PRINT 

90 FOR WAIT-1 TO 1000;NEXT WAITtREM Delay loop to 
allow tiMe to read 
100 FOR COUNTER=NUM TO 1 STEP -1 

110 print counter;" "; 

120 NEXT COUNTER 



130 PRINT 



; print; rem 



Advances before 



starting the 



prograM again, 

140 GOTO 40 ;REM Ask for another input 



10 REM Sound deno of STEF' 

20 FOR PITCH-0 TO 255 STEP 1 
30 SOUND 0, PITCH, 10 , 10 
40 NEXT PITCH 

5 0 FOR F'ITCH = 255 TO 0 STEP -1 
60 SOUND 0 , PITCH ,10,10 
70 NEXT PITCH 
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Nested loops May be quite difficult for sone csMpers to 
understand* The activities in this lesson are the MiniMUM 
that should be done* 

Activity # 1 

Type in the following prograM and then run it* 



10 REM Denonstr at ion of nested loops* 

2 0 FOR OUTERLOOP=l TO 5 

30 PRINT "OUTERLOOP = "J OUTERLOOP 

^0 FOR INNERL00P=1 TO 3 

50 PRINT " INNERLOOP = " JINNERLOOP 

60 NEXT INNERLOOP 

70 PRINT 

80 NEXT OUTERLOOP 



This prograM should graphically illustrate how nested 
FOR.**NEXT loops work. Ask campers to change the values in 
lines 20 and 'lO tot 



20 FOR QUTERL00P=1 TO 3 
^0 FOR INNERLOQP=l TO 5 

and then predict what the output will be before they run the 
progran . 

Activity J2. 

Encourage campers to predict the output of this prograM 
before they run it* Type in* 



10 

20 

30 

^0 

50 

60 

70 



REM Printing stars 
FOR NUMDOWN= 1 TO 10 
FOR NUMACROSS=l TO 10 
PRINT "*"$ 

NEXT NUMACROSS 
PRINT 

NEXT NUMDQWN 



Call attention to the purpose of the semicolon in line ^0 and 

in lines 

2 0 



P FvINT 
and 30, 


statement in line 60 
so that the progran 


♦ Change the 

Makes one of 


XX 


w w w w w w vy w vy 

/l» /n /T» /K /n 


nV AV /l^ /n /n rn 


XX 


w w w \y w vy vy vy vy \j/ 
A ^ /TV A /n /K /TV /TV /n 


/A /A /a /A /A / A /A 


xx 


/^V /n /r» /r» ^Tv /r* /T« /TV 


^ V ^ ^ ^ ^ 

m A /TV /TV /A /A /A /A 


XX 




xxxxxxxx 


XX 




xxxxxxxx 


XX 




/Tv /K /A /A /A /A 
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Activity $3 



NESTED LOO IRS 
(CONTINUED) 



Be sure 
this program 



the use of variables and the nested loops in 
are clear . 



10 REM A triangle of stars 

20 FOR R0W = 1 TO 10 

30 FOR ST ARS=1 TO ROW 

^0 PRINT 

50 NEXT STARS 

60 PRINT 

70 NEXT ROW 



Challenge campers to change the program, so that the triangle 
is turned upside down like thist 



w w w y y y y 

y y y y y y 

ns m m m /rw A 

^ ^ y w 

^ /Tv 

XXXX 

)KX)K. 

XX 

X 



Activit y 

A F0R***NEXT loop in this program simulates a tab 
function ♦ Sone of the challenges at the end of the nodule 
require that canpers understand how the progran works ♦ The 
ESC CTRL-CLEAR (PRINT "$*" ) is used in the prog ran to clear 
the screen* Have canpers type in the progran and run it* 



10 REM Moving indenting before printing* 
20 PRINT "T" t REM Clear screen* 

30 PRINT "INDENT" 

^0 FOR INDENT-! TO 10 
50 FOR SPACES= 1 TO INDENT 
60 PRINT " " J 
70 NEXT SPACES 
80 PRINT "INDENT" 

90 NEXT INDENT 



Discuss the relationship between the variables "INDENT" and 
"SPACES"* Ask canpers to change the program so that the word 
"INDENT" Moves all the way across and down (but not off) the 
screen ♦ 
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NESTED 1_ O O IF' S 
(CONTINUED) 



Activity 1 : 5 

This program conbines color and sound using three 
FOR***NEXT loops* - It also uses the ESC CTRL-CLEAR key 
combination to clear the screen before the program is run* 

On the screen the character looks like this "T " * 

Ask students to type in the program and then show theM 
how to "diagram" the nested loops in order to visually 
separate then* The "diagramming" is shown below* 

10 REIM Combining color and sound 
20 PRINT "f " JREM Clears screen 
30 FOR C0UNTER=1 TO 5 
^0 FOR COLQRPITCH=50 TO 150 

50 POKE 710 , COLORPITCH t REM Changes screen color 
60 SOUND 0 .COLORPITCH, 10 *6 
70 FOR WAIT=1 TO 10 
80 NEXT WAIT 
90 NEXT COLORPITCH 
100 NEXT COUNTER 

Explain how the variables, "COUNTER", "COLORPITCH", and 
"WAIT" are used* Run the program* Ask campers to experiment 
by changing the values in lines 30, ^0, and 70 to create 
different effects. 



DIAGRA M if-1 :X if-.! G El X Pi M IF' ll„ EE 



10 REM Combining color and sound 
20 PRINT "T" 

i 30 FOR C01JNTER = 1 TO 5 

I — ^0 FOR COLORPITCH-50 TO 150 

50 POKE 710, COLORPITCH t REM Changes screen color 
60 SOUND 0 , COLORPITCH , 1 0 , 6 
r 7 0 FOR WAIT : =1 TO 10 
•-8 0 NEXT WAIT 
1 — 90 NEXT COLORPITCH 
> 100 NEXT COUNTER 

If the lines cross, the loops are not nested properly. 
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NESTED !_ O O F‘ S 
(CAMPER COPY) 



10 
20 
3 0 
^0 
50 
60 
70 
80 



REM Dewonstr ation of nested loops* 

FOR OUTERLOOP=l TO 5 

PRINT "OUTERLOOP = "J OUTERLOOP 

FOR INNERLQOP=l TO 3 

PRINT " INNERLOOP = " ; INNERLOOP 

NEXT INNERLOOP 

PRINT 

NEXT OUTERLOOP 



Change the values in lines 20 and ^0 to* 

20 FOR OUTERLOOP=l TO 3 
4 0 FOR INNERLOOP=l TO 5 



and then predict wh 3 t the output will he before you run the 
program* 



10 REM Printing stars 
.20 FOR NUMDOWN=l TO 10 
30 FOR NUMACROSS=l TO 10 
40 PRINT "x" J 
50 NEXT NUMACROSS 
60 PRINT 
70 NEXT NUMDOWN 

Change the values in lines 20 and 30, so that the program 
rushes one of the boxes below i 



XX 


* W ^ 

m /n /n /n /n /n /n /n /r. 


xxxxxxxx 


XX 


m /n />\ /n /r% /n /n /n /n /n 


xxxxxxxx 


XX 


/rv Av /n /n /n /A /ft /ft 


>i£ ‘Mf VSf '-if 

/ft /ft /ft /ft /ft /ft /ft /ft 


XX 




w "X yc vac vx \af 

m /ft /ft /A /A /ft /i\ /ft 


XX 




xxxxxxxx 


XX 




w \v w W W VV W VfcT 
/ft /ft /ft /ft /ft /ft /ft /ft 
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NESTED B O O F* S 

(CAMPER COPY - CONTINUED) 



10 REM A triangle of stars 
20 FOR ROW = l TO 10 
30 FOR STARS=1 TO ROW 
40 PRINT ; 

50 NEXT STARS 
60 PRINT 
70 NEXT ROW 

Change the program » so that the triangle is turned upside 
down like this? 

^ ^ 

^ ^ ^ ^ 

^ ^ ^ \L» 

^ ^ ^ A /n 

u> ^ 

xxxx 

X*)K 

ttX 



10 REM Moving indenting before printing#. 
20 PRINT "T":REM Clear screen* 

30 PRINT "INDENT" 

4 0 FOR INDENT=1 TO 10 
50 FOR SPACES=1 TO INDENT 
60 PRINT " " ; 

70 NEXT SPACES 
80 PRINT "INDENT" 

90 NEXT INDENT 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 



REM Combining color and sound 
PRINT "f'tREM Clear screen 
FOR COUNTERS TO 5 
FOR C0L0RPITCH=5Q TO 150 

POKE 710* COLORPITCH t REM Changes screen color 

SOUND 0 f COLORPITCH * 1 0 * 6 

FOR WAIT=1 TO 10 

NEXT WAIT 

NEXT COLORPITCH 

NEXT COUNTER 
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G O T O 



Canpers have seen GOTO used in previous programs* 
though no fornal instruction has been done ♦ 



Activity # 1 

Canpers nay enjoy fooling their parents with this 
program* The loop should be stopped at Week# 3^, since 
nunbers get too large after that week* Type it in and 
it ♦ 



10 


REM 


The 


Allowance Con 






20 


REM 


Ask 


for an allowance 


in a 




30 


REM 


different way* Ask for 1 


cent 


^0 


REM 


the 


first week* Then 


ask 


that 


50 


REM 


the 


anount be doubled 


each 


week * 


60 


REM 


The 


progran shows you 


how. 


Much you 


70 


REM 


would earn each week* 






80 


PRINT " 


“JREM Clear screen 




90 


WEEK 


= 1 : 


ALLOWANCES 







10 0 PRINT “WEEK #" J WEEK 

110 PRINT “ALLOWANCE = $“ \ ALLOWANCE/ 1 0 0 
120 PRINT 

130 ALLOWANCE 25 ALLOWANCES 
150 WEEK=WEEK+1 
210 GOTO 100 

Discuss why the output changes after Week #3*U 
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N CO If) -rn 
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(CAMPER COPY) 



10 REM The Allowance Con 
20 REM Ask for an allowance in a 
30 REM different way* Ask for 1 cent 
^0 REM the first week* Then ask that 
50 REM the amount be doubled each week* 

60 REM The program shows you how Much you 
70 REM would earn each week* 

80 PRINT “ “tREM Clear screen 
90 WEEK=1J ALLOWANCES 
100 PRINT “WEEK *"JWEEK 

110 PRINT “ALLOWANCE = $“ J ALLOWANCE/ 1 0 0 
0 PRINT 

0 ALLO W AN CE= ALLOWANCE! *2 
0 WEEK=WEEK+1 
0 GOTO 100 
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C H A L_ II IEI iW G 1EE S 



Use* F r C)ft . * NEEXT loops "bo write a prograM (or prograns) to 
one or wore of the following problems. 



1. Write a progrsM to output one of the designs below* 
F'rint your nsMe instead of the word NAME if you do the 
one ♦ 



A* NAME- 
NAME 
NAME 
NAME 
NAME 
NAME 
NAME 



B 



♦ 



* 

***** 
#### ** ### 



C ♦ * 

* x 

X X 

X X 

X X 

X X 
X 



D ♦ XXXXX XXXXX 

XXXXX XXXXX 

XXXXX XXXXX 
XXXXX 

XXXXX XXXXX 
XXXXX XXXXX 

XXXXX XXXXX 
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solve 



first 



C M lA L- L E IN! £3 E S 
(CONTINUED) 



2* Write a program to print one of the number sequences ♦ 



At First sequence ♦ 

5 2^ ^3 62 81 100 



Eu Second sequence t 

3 ^0 77 114 151 188 



3t Write a program that shows all the numbers between 1 and 
100 that are divisible by 3» If you have time, change the 
program* so that a person can ask for all the numbers between 
two numbers that are divisible by a third number ♦ 
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MODULE *5 



SUBROUTINES AND STRUCTURED PROGRAMMING 



OBJECTIVES 

Know what a subroutine is* 

Know when it is appropriate to use subroutines* 

Know how subroutines work in a program and be able to 
use subroutines properly* 

Recognize the importance of planning before starting 
to write a program* 

Be able to use the top down approach to programming* 

Create a library of useful subroutines that can 
be used in different programs. 

MATERIALS REQUIRED 



BASIC Cartridge 

Camper's Personal Diskette 

BASIC Utility Disk: 

ANARROW 
CHOMP 
MSHUT.GR 
MOPEN.GR • * 

BOAT . GR - 
TREE ♦ GR 
CHMAIN 
SUN ♦ GR 
ROCKET. GR 



INTRO *TXI- • 
LEAVING.TXT 
BEACH * TXT 
STORM * TXT 
RAIN ♦ TXT 
PH0NH0ME.TXT 
ENDROPE.TXT 
SUNSHINE . TXT 



REFERENCES 



"Slicing Through Spaghetti Code" - Reprint of an 
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CONTENT 



CsMpers Must have Mastered skills covered 
in Modules 2-^ before they begin this one. When the 
Module is coMpleted, canpers will have written a 
progran that tells a story about a person who goes 
on a vacation. A BASIC Cartridge and the 
CaMper's Personal Diskette are necessary for each 
lesson. The prerequisite statenents for each 
lesson are all of the ones covered in the first 
four Modules. 



Lesson 1 - Subroutines - An Introduction 

Pages 1-6 

New StateMents 

GOSUB ENTER LIST 

Materials 

BASIC Utility Disk.: ANARROW 

Uses saMple prograns to show how subroutines 
work. Shows how to LIST part of a prograM to the 
disk to store it as a subroutine and then 
recall it using ENTER. 



Lesson 2 - Practice ' Using Subroutines 
Pages 7-10 
Materials 

BASIC Utility Disk: 

CHOMP 

MSHUT.GR 

MOPEN.GR 

BOAT.GR 

TREE.GR 

rocket.gr 

CHMAIN 

Six subroutines are coMbined to show 

pictures on the screen. Canpers retrieve 

subroutines froM the BASIC Utility Disk.. 

store then on their Personal Diskette, and 

then practice using their newly created subroutine 

library. 
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Lesson 3 - Graphics Subroutines 
Pages 11-16 
Materials 

BASIC Utility Disk: SUN.GR 

Campers type in and store several subroutines that 
will be used in Lesson 5* A format is established 
for organizing line numbers and names of 
subroutines ♦ DO NOT SKIP THIS LESSON. 



Lesson - Sound Subroutines 
Pages 17-23 

CaMpers experiment with SOUND to make sound 
effects. Four sound effects are stored as 
subroutines to be used in the project in Lesson 5. 
DO NOT SKIP THIS LESSON. 



Lesson 5 - Writing a Program 

Pages 2^-38 - 

Materials . 

BASIC Utility Disk: 

INTRO . TXT 
LEAVING ♦ TXT 
BEACH .TXT 
STORM ♦ TXT 
RAIN.TXT 
PHONHOME.TXT 
ENDROPE.TXT 
SUNSHINE.TXT 

"Top Down" programming and proper use of 
subroutines are stressed. Campers produce a 
project that tells a story using text . 
graphics > and sound. 
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S U ES Ft OIUTX W EZ 3 
«A N HI N TROiDUCTIO M 



Canpers should be familiar with Atari graphics and sound 
capabi 1 i ties ♦ and they should be able to use variables and 
loops before beginning these activities* If your group has 
not completed activities from the first four modules * you 
should read this module's information cover sheet carefully 
to determine whether additional instruction is necessary 
before you start these lessons* 

When they have completed this lesson* they should be able 
to answer the following questions* 

1* What is a subroutine? 

2* What is the form or structure of a subroutine? 

3* Why use subroutines? 

^* When is it appropriate to use a subroutine? 

5* How does a subroutine work within a program? 

It is important that you thoroughly discuss answers to these 
questions as you teach this lesson and others in the module* 
Do not merely give campers the code to work with* Subsequent 
modules presume the ability to use subroutines* and they 
emphasize structured programming* 

A ctivity # 1 

Type in the following program* 

10 REM * GQSUB Demo * 

20 PRINT "Hi " ; 

30 GQSUB 100 
^0 PRINT "Camper!" 

5 0 END 

100 REM xxxxxxxSample Subrout inexxxxxx 
110 PRINT " there " J 
120 RETURN 

Run the program* Discuss the subroutine including the 
f ol lowing \ 

1* The subroutine has a REM as the first line to 
identify it* (Line 100) 

2* RETURN must be at the end* This sends the 
computer back to the main program* 

3* The instructions carried out by the subroutine 

are in the lines between the REM and the REITURN* 
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S IJ ES FC O HJ T RI NES 
AM INTRODUCTION 

(CONTINUED) 



♦ In the Main prograM* the coMMsndt GOSUB * and 
and a line nunber tell the computer to go to 
the specified line in the proQran f which is the 
beginning of the subroutine ♦ 

5* When the computer returns to the Main prograM 
froM the subroutine * it continues on the 
next line 3fter the GOSUB coMMand* 

6* The Main prograM Must have an END stateMent* 

Consider what would happen in this sinple prograM 
if line 50 were not there* 

7* REMarks are essential when using subroutines* 



Activity #2 

E lse sure the d i sk drive * pr inter » and interface ( i f y o u 
have one ) are on before ^jou begin this activity* 

The prograM called ANARRGN on the BASIC Utility Disk 
coMbines nested F r 0R**NEXT loops and a subroutine to produce 
an "aniMated arrow*" Have caMpers run it froM the disk using 
RUN n D l ANARROW" and then list it to the printer using 
LIST"P*" ♦ A transparency and individual student worksheet 
accoMpany this activity in case you cannot use *:,he printer* 

CaMpers should use the hard copy froM the printer to 

« 

"diagraM" the loops in the prograM as shown in your copy of 
the code* (This diagraMMing activity W3S introduced in 
Module ^ in the lesson called "NESTED LOOPS"*) 

When you are sure the nested loops are understood* 
discuss the fol lowing X 

1* The GOSUB coMMands in lines 90 and 120* 
and the END in line 150* 

2* The asterisks in lines 10* 70* 100* and 150* 

Point out the fact that they Make it easier 
to find the REMarks* and thus to read the code* 
(Consider the subroutine REMark separately) 

3* Discuss the REIMarks in lines 1 0800 * and 

10890-109^0* The forMat of using asterisks 
to separate subroutines is used throughout 
the Module* 

£ \ ♦ Follow the prograM step by step to see how the 
subroutine is used* Discuss how the subroutine 
saved the prograMMer tiMe* 
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SUBROUTINES 
A M X i"4 T 8R‘ O D U C X X O SM! 

(CONTINUED) 



Activity #3 

E : ; e sure the disk, dr i ve » pr inter » and i n t e?rface ( i f ^ qu 
have o n e ) are on before you b eg i n this activity* 



In this activity, campers will save part of the ANARF’<OW 
program as a subroutine and use it in a sinple progran they 
type in* The steps below Must be followed exactly* 

1* If the progran is not in nenory, have campers 
load it froM the E'.ASIC Utility Disk using 
the coMMsnd LOAD"D i AN ARROW" ♦ 

LIST the progran to see that it loaded properly* 



2* Use the printed copy of the code to find 

the nunber of the first line and the last line 
of the subroutine (10800 and 10890)* 



3* Rehove the BASIC Utility Disk and insert the 
canper's personal disk* 



^ ♦ Type LIST"D: ARROW *GR" ,10800,10 89 0* 

Explain that this stores the subroutine on their 
disk in a special way, so that it can be used 
as a subroutine in another progran without having 
to type it in again* AF’\RQW*GF\ is the nane 
they will use to retrieve the subroutine* 

It is like the nane they use when they save 
a progran* The *GR indicates to the * 
canper (not to the conputer ) that this is 
a graphics subroutine* Do not onit the *GR 
extension* It will be used in the next 
lesson* The nunbers are the beginning 
and ending lines that they want to save fron 
thee progran in nenory* 

5* Type NEIW to clear nenory and then LIST to 
be sure nothing is there* Now type? 

ENTER" D J ARFv'OW ♦ GR H ♦ After the disk activity is 
finished, type LIST* The subroutine? is now 
in nenory* 
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SUBROUTINES 
■A iN! INTRODUCTION 

(CONTINUED) 



6. Type NEW* Ask canpers to tell you as a group 
how they would write a sinple progr an 
that draws one arrow on the screen* They 
will need to specify graphics node, color* 
and X and Y coordinates for the F'LOT statement 
in the subroutine* Be sure that they include 

0 

REMarks* Have then type in the lines of the 
program they write* A sanple progran is shown 
below ♦ 



10 REM * Drawing an arrow * 

20 GRAPHICS 7+16 

40 COLOR 1 * REM * Arrow's color * 

50 GOSUB 10800 

60 REM *Line 70 keeps arrow on screen* 
70 FOR WAIT=1 TO lOOOtNEXT WAIT 
80 END 





Now type ENTER"D : ARROW ♦ GR" and 
LIST the progran* Point out that the ENTER 
connand inserts the subroutine into the 
progran fron the disk* 



8 



♦ 




Remind canpers that if they ever have need 
of an arrow in another progran, they now have 
one available* In a sense, they have 
taught the conputer to draw an arrow* E‘*y 
using subroutines properly, they can "teach" 
the conputer to do nany tasks that they can 
use over and over * * 
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ANIMATED ARROW 
(TEACHER COPY) 



10 REM * ANIMATED ARROW * 

20 GRAPHICS 7+16 
30 Y=40 

40 FOR HUE=0 TO 15 
50 FOR X=15 TO 105 STEP 5 
60 SETCOLOR 0,HUE,2*X/15 
70 REM * DRAW ARROW * 

80 COLOR 1 

90 GOSUB 10800 

100 REM * ERASE ARROW * 

110 COLOR 0 
120 GOSUE: 10800 
130 NEXT X 
140 NEXT HUE 
150 END 

10800 REM xxxxxxMakes Arrow********* 

10810 PLOT X t Y 

10815 DRAWTO X-15,Y 

10820 DRAWTO X-15,Y+2 

10830 DRAWTO X,Y+2 

10840 PLOT X+2,Y+1 

10850 DRAWTO X-6,Y-3 

10860 PLOT X+2,Y+1 

10870 DRAWTO X-6,Y+5 

10880 RETURN 



** 
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ANIMATED ARFiO W 

(CAMPER COPY) 



10 REM * ANIMATED ARROW * 

20 GRAPHICS 7+16 
30 Y=40 

40 FOR HUE=0 TO 15 
50 FOR X- 1 5 TO 105 STEP 5 
60 SETCOLOR 0 t HUE t 2*X/ 15 
70 REM * DRAW ARROW * 

80 COLOR 1 

90 GOSUB 10800 

100 REM * ERASE ARROW * 

110 COLOR 0 
120 GOSUB 10800 
130 NEXT X 
140 NEXT HUE 
150 END- 

1 0800 REM *****)KHakes Arrow********* 

10810 PLOT X,Y 

10815 DRAWTO X-15,Y 

10820 DRAWTO X-15,Y+2 

10830 DRAWTO X,Y+2 

10840 PLOT X+2,Y+1 

10850 DRAWTO X-6,Y-3 

10860 PLOT X+2,Y+1 

10870 DRAWTO X-6,Y+5 

10880 RETURN 
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PRACTICE USING SUOFtOUTDCMES 



Before csnpers type in and store their own subroutines, 
this practice lesson should be completed to be sure that they 
understand how to store and retrieve subroutines. In this 
lesson six subroutines are combined to show graphics on the 
screen. Because the graphics characters do not print on the 
printer, no copy of the code is available for use by canpers. 
They do not, however, have to type anything in. The object 
of this lesson is to practice using subroutines, not writing 
then. There is a copy of the code for the teacher. 



Be sure the disk dr i ve , pr inter , and interface ( if you have 
one ) are on before you begin this 1 esson , 



1. Have canpers run the progran on the EiASIC Utility 
Disk called CHOMP to see the output of the program they will 
be assenbling, 

2. Type NEW, Enter the subroutine called ROCKET, GR 

into nenory using the ENTER"D, " connand, putting 

ROCKET ♦ GR in the blank. 

3. The canper's personal disk should be put in the 
drive and the subroutine stored on it by typing 

LIST"D J ROCKET. GR". 

^ ♦ Use the sane steps (listed below) to store the other 
subroutines, 

STEPS 

1. Type NEW, 

2. Put in the BASIC Utility Disk and 

type ENTER"D: ", 

3. Put in the canper's disk and type 

LIST"D: ", 

SUBROUTINE NAMES TO USE 



MSHUT.GR 

MOPEN.GR 

BOAT.GR 

tree.gr 

CHMAIN (This is the nain progran.) 
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PRACTICE USING SUBROUTINES 

(CONTINUED) 



5* Now that all of the subroutines are stored on the 
camper's personal disk, the program can be put together* To 
do that* these steps should be followed; 

1* Type NEW ( ONLY ONCE ! ) 

2. Type ENTER"D; " using each 

of the subroutine names in place of 
the blank* 

3* Run the program to see if everything 
was done properly. 



6* Rewind campers that they now have five wore graphics 
subroutines that are at their disposal for use in programs. 



7. It way be necessary to explain that the character in 
line 20 is wade with the ESC CTRL-CLEAR key combination* It 
clears the screen when the program starts. 



8* Discuss the fact that the GOTO statement in line 200 
takes the place of the END statement we have used* 



9* Experiment with the program that they have put 
together by changing the GQSUESS in lines 110 * 130* 150 * 170 * 

and 190 of the main program. 
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CHOMP 
(TEACHER'S COPY) 



10 DIM LINE$ ( 
20 PRINT 
30 POKE 752 , 1 
100 POSITION 
GOSUE: 113 
POSITION 
GOSUB 109 
POSITION 
GOSUE! 112 
POSITION 
GOSUB 110 
POSITION 
GOSUE! Ill 
GOTO 160 
REM xxx 
LINE*=" 
PRINT " 
PRINT " 
PRINT " 



25 ) , L$ ( 25 ) , Ei$ ( 25 ) 

REM CLEAR SCREEN 
{REM TURN OFF CURSOR 



110 
120 
130 
1^0 
150 
160 
170 
180 
190 
200 
10900 
10910 
10920 
10930 
109^0 



5,5 

0 0 {REM 
2^,4 

oo :rem 

22,15 
0 0 {REM 
6,16 
oo :rem 
6,16 
oo :rem 



TREE 

ROCKET 

BOAT 

SHUT MOUTH 
OPEN MOUTH 



xkxxxxROCKETxxxkxxxxxxx 



II 



I 



" { LINE$ { 

" {line*; 



10950 

10960 

10970 

10980 



PRINT 

PRINT 

PRINT 

PRINT 



II 

II 

It 

II 



" ;line* ; 

" { LINES { 
" {LINE*{ 

" ;line*? 



" { LINE* { 

10985 PRINT " /'\ "{LINE*? 

10990 PRINT " "{ 

10995 RETURN 

11000 REM x****x*SHUT MOUTH********** 
11010 LINE*=" " 

11020 PRINT " "{LINE*; 

11030 PRINT " 



"{line*; 

no^o print " ";l.ine*; 

11050 PRINT " " {LINE*; 

11060 PRINT " 

MJ/ine* ; 

11070 PRINT " 

" {line* ; 

11080 PRINT " "{ 

11090 RETURN 
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CHOHP 
(TEACHER'S COPY) 



1110 0 REM ********0PEN MOUTH********* 
11110 LINE$= M " 

11120 print ";line$; 

11130 PRINT " 



11140 PRINT 
11150 PRINT 
11160 PRINT 



♦ 

.♦ 



" ;line* 

" :line$ 



it 



LINE$ J 



11170 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11295 

11300 

11310 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

11390 

11395 



PRINT " 

PRINT " 
RETURN 



" jline$: 



" jline*; 

II 4 

t 



REM **********BOAT************* 
LINE*= ,,,, 



PRINT 

PRINT 

PRINT 



PRINT 



" JLINE * i 

I m ;line$? 

I 

";line$; 



••jline*; 

PRINT f 
PRINT " 



" ;line$; 



" i LINE $ } 
PRINT " 



PRINT " 
RETURN 



" ;line$; 

it « 

f 



REM ***********TREE************ 
LINE**"" 

PRINT " " i LINE $ i 

PRINT " A " t LINE$ > 

PRINT " 

" JLINE*? 

PRINT " 

‘•;line$j 

PRINT " 

";line$; 

PRINT " 

m ;l.ine*; 

PRINT " "}LINE*J 

PRINT " " ; 

RETURN 
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GRAPHICS SUBROUTI M EE S3 



This lesson has two purposes* One is to encourage the 
idea of creating an organized "library" of subroutines that 
will enable the eanper to save tine in writing prograMS* The 
other is to type in and save several subroutines that will be 
used in the final lesson in this nodule ♦ DO NOT SKIP THIS 
LESSON ♦ 



All subroutines that will go into the "library" will 
begin with a REM as identification* It is good practice to 
use an identifier that explains what the subroutine does* 
Graphics subroutines will use line numbers beginning with 
10 >000* The REM that contains the identifier is on a nunber 
that is an increment of 100* The file nanes have a *GR 
extension to indicate graphics* 

Stress the necessity of typing NEW each tine a new 
subroutine is typed in and stored* 



E'«e s u r e t h e disk, drive » printer » and interface ( if y o u have 
one! §JL§. on before ^jou begin this lesson* 



Activity 11 

This subroutine plots points to Make a circle. 

Tspe NEIN before beginning . 

1. Type in the following. 

10000 REM *****Going in circles***** 

10010 GRAPHICS 7+16J COLOR 2 
10020 FOR C0UNTER=1 TO 50 
10030 Z=Z+ 0.5 

100^0 X=SIN(Z)*25:Y=C0S(Z)*22 «• 

10050 PLOT X+80 , Y+^5 
10060 NEXT COUNTER 
10070 RETURN 



2. Store the subroutine on the canper's personal disk 
by typing l.IST"D ♦ CIRCLE1 ♦ GR" ♦ The nane, CIRCLE1.GR, Must be 
used ♦ 
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GRAPHICS SUBROUTINES 

(CONTINUED) 



3* Type NEW to clear memory and then type 
ENTEFC'D J CIRCL.E1 ♦ GR" to put the subroutine back in memory. 
Type LIST to see that it is there. 



4. To see what the subroutine does, campers should type 
in the two line program below. 

10 GOSUB 1000 0 
20 END 

This progran will be used to test all the subroutines in this 
and the next lesson. 



Activity *2 

As stated in other lessons, delay loops are very tricky 
in BASIC. A FOF<:..NEXT loop at the top of a program executes 
Much faster than one near the bottoM. Timing can be made 
More consistent by putting the loop in a subroutine. In this 
activity, campers will store a delay loop and then use it in 
another subroutine. Talk about nested subroutines and the 
dangers of nesting that is too deep. 

1 ♦ Type in* 

NEW 

29000 FilEM xxxxxxxxxWait Loop xxxxxxxxxx 
29010 FOR WAIT = 1 TO 5 0 0 J NEXT WAIT 
29020 RETURN 

and store it using LIST"D t WAIT . LP" . 

2* Type NEW and then the following subroutine ♦ Campers 
should put their name where it says "Your Name" 



1010 0 REM *******Author Page*******:** 



10110 


GRAF'F-IICS 


2 + 16 








10120 


F'OSITIGN 


4,2*. PRINT 


*6 ; 


I 1 w u/ w w w u/ w w w w u.* 

^ ^ ^ 


10130 


POSITION 


4, 3J PRINT 


*6; 


"X 


X 


10135 


POSITION 


4, 4: PRINT 


i=6 ; 


"X 


BY * 


10140 


POSITION 


4, 5: PRINT 


*61 


"X 


X 


10150 


POSITION 


4, 6: PRINT 


* 6 ; 


"X 


Your Name * 


10155 


POSITION 


4 , 7 t PRINT 


* 6 ; 


"X 


X 


10160 


POSITION 


4, 8J PRINT 


* 6 ; 


1 1 w w ^ ^ w v/ w u/ uy w w w 

^ ^ ^ ^ A ^ ^ ^ ^ 


10170 


RETURN 
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GRAPHICS SUBROUTI 1-4! El ZS 

(CONTINUED) 



3* In order to see what this subroutine does, canpers 
will need to enter the delay loop) subroutine* They should 
type ENTER"D J WAIT . LP" and then use the three line progrant 



Have 



10 GOSUB 10100 
20 GOSUB 29000 
30 END 

canpers delete line 20 



and run the 



progran ♦ 



Activity #3 

Canpers nust type in and store two nore subroutines to 
be used in the last lesson* They can do this on their own if 
you feel that they are ready* However, stress the fact that 
the subroutines nust be typed in exactly as shown and the 
nane used to store then nust be the one given. Renind then 
to type NEW before starting the second subroutine* 



Type NEIW before you begin* 
TITLE1.GR 



10300 REM xxxxxxxxTitle page******** 

10310 GRAPHICS 2+16 { COLOR 2 

10315 PRINT *6: PRINT *6 t PRINT *6 t PRINT *6 

10320 PRINT *6r A" 

10325 PRINT *6;" VACATION" 

10330 PRINT t6J" STORY" 

10340 PLOT 1,1 
10345 DRAWTO 19,1 
10350 DRAWTO 19,9 
10355 DRAWTO 1,9 
10360 DRAWTO 1,1 
10370 RETURN 



Type LIST"D J TITLE 1 ♦ GR" 



to store the subroutine. 
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GRAPHICS SUBROUTI r%l EE 3 

(CONTINUED) 



Type NEW before you begin* 

RAIN ♦ GR 

♦ 

10600 REM xcxxxxxxxxRainxxxxxxxxxxxxxx 

10605 FOR L00F‘=1 TO 3 

10610 GRAPHICS 3+16 

10620 FOR C0UNTER=1 TO 84 

10630 PRINT *6,"+" J 

10640 NEXT COUNTER 

10650 GRAPHICS 0 

10660 NEXT LOOP 

10670 RETURN 



Type LIST"DJRAIN*GR" to store the subroutine* 

4* A subroutine celled SUN*GR will be needed. Since it 
would be extrewely tine consuming to type it in, have canpers 
ENTER it froM the BASIC Utility Disk ( ENTER"D 1 SUN . GR” ) and 
then store it on their personal disk using l_IST"D i SUN ♦ GR" ♦ 

To see the sun, type* 

ENTER"D * WAIT *LP" 

10 GOSUB 10200 
20 GOSUB 29000 
30 END 

and then run the progran* A copy of the subroutine code is 
included for the teacher's use* 



10200 


REM xxxxxxxxx 


10205 


GRAPHICS 


3+16 


10210 


*P 

• 


*6 ; " 




10215 


*P 

• 


*6*, " 


S= 


10220 


• 


*6J" 




10 225 


*P 

• 


*6 ; " 




10230 


'P 

• 


*6 ; " 




10235 


• 


#6 1 " 




10240 


• 


*6 ; ■■ 




10245 


'P 

• 


*6; u = 




10250 


*p 

• 


#6 J " 




10255 


'p 

• 


*6 ; " 




10260 


'P 

• 


*6 1 " 




10270 


'P 

• 


*6; " 




10275 


• 


*6J" 




10280 


*p 

• 


* 6 ; •• 




10285 


"P 

• 


*6 ; " 


= 


10290 


RETURN 
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GRAPHICS SUBROUTINES 

C A i'-li F" EE R: CO F‘ V 



Tspe NEIN before beginning ♦ 



10000 REM' *****Going in circles***** 
10010 GRAPHICS 7+16: COLOR 2 
10020 FOR C0UNTER=1 TO 50 
10030 Z=Z + 0 * 5 

10040 X=SIN(Z)*25:Y=C0S(Z)*22 
10050 PLOT X+80 , Y +45 
10060 NEXT COUNTER 
10070 RETURN 

Store it using LIST" D t CIRCLE 1 ♦ GR 



T ype NEIW before beginning « 

29000 REM *********Wai t Loop ********** 
29010 FOR WAIT=1 TO 50 0 : NEXT WAIT 
29020 RETURN 

Store it using LIST"D* WAIT ♦LP" ♦ 



10100 REM *******Author Page*******-** 

10110 GRAPHICS 2+16 

10120 POSITION 4,2! PRINT *6:"**************" 
10130 POSITION 4, 3J PRINT *6;"* *" 

10135 POSITION PRINT *6;"* BY *" 

10140 POSITION 4,s:print *6;"* *" 

10150 POSITION 4, 6: PRINT *6:"* Your Nsne *" 
10155 POSITION 4,7JPRINT *6: h * *" 

10160 POSITION 4, 8: PRINT 1=6 J "**************" 
10170 RETURN 

Store it using LIST"D : AUTHOR * GR" ♦ 
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GRAPHICS SUBROUTINES 

CAMPER C O F" Y 



Type NEW before you begin* 
TITLE1.GR 



10300 REM xxxxxxxxTitle pagexxxxxxxx 
10310 GRAPHICS 2+16:COLOR 2 
10315 PRINT *6J PRINT *6 1 PRINT *6 i PRINT *6 
10320 PRINT *6J" A" 

10325 PRINT *6*," VACATION" 

10330 PRINT *6;“ STORY" 

10340 PLOT 1,1 
10345 DRAWTO 19,1 
10350 DRAWTO 19,9 
10355 DRAWTO 1,9 
10360 DRAWTO 1,1 
10370 RETURN 



Type LIST"D*TITLE1.GR" to store the subroutine. 



Type NEW before you begin. 
RAIN.GR 



10600 REM xxxxxxxxxRs i nxxxxxxxxxxxxxx 
10605 FOR LOOP=l TO 3 
10610 GRAPHICS 3+16 
10620 FOR COUNTER= 1 TO 84 
10630 PRINT *6,"+"; 

10640 NEXT COUNTER 
10650 GRAPHICS 0 
10660 NEXT LOOP 
10670 RETURN 



Type LIST"D:RAIN.GR" 



to store the subroutine. 
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SOUND SUBROUTINES 



This lesson will allow campers to exp er i nent with the 
SOUND statewent to wake sound effects. Four of the 
subroutines will be used in the final project. Be sure that 
Activity *1 is conpleted before going on in the Module. Xt 
is iMportant that the subroutines be stored exactly as 
directed. The remaining activities provide practice with 
variables and FOR. .NEXT loops. It May be necessary for you 
to set guidelines for the amount of noise you (and fellow 
caMpers) can tolerate. 

The forMat for subroutines begun in the Graphics 
Subroutines lesson is continued here. Line numbers beginning 
with 20.000 will be used. The extension .SO is included in 
the naMe of the subroutine to identify it as a sound effect. 

Remember to stress the necessity of typing NEW each time 
a new subroutine is typed in and stored. 



Be sure the disk drive, printer » and interface ( if y o u have 
one ) are on bef or e you begin this lesson. 



Activity $ 1 

These four subroutines Must be stored on the camper's 
personal disk, since they will be used in the next lesson. 
Since delay loops execute Much faster at the beginning of 
prograMS than they do at the end. three of the subroutines 
will have to be changed in order to hear the proper sound if 
they are used separate froM the larger prograM. 

1. Type in the following^ 



20900 REM xxxxxxxxxxxOcean xxxxxxxxxxx* 

20910 FOR L00P=1 TO 2 

20920 FOR PITCH=0 TO 12 

20930 SOUND 0. PITCH. 8. 6 

20940 FOR WAIT = 1 TO 5 i NEXT WAIT 

20950 NEXT PITCH 

20960 FOR PITCH=12 TO 0 STEP -1 

20970 SOUND 0, PITCH, 8. 4 

20975 FOR WAIT=1 TO 17 i NEXT WAIT 

20980 NEXT PITCH 

20985 NEXT LOOP 

20990 SOUND 0,0, 0,0 

20995 RETURN 



Copyr ight 
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E> O U M O' S U E=s ROUTINES 

(CONTINUED) 



Be sure the CBMper's personal disk is in the drive* 
LIST"D * OCEAN ♦ SO" to store the subroutine* In order 
the ocean sound change these lines: 

20940 FOR WAIT=1 TO 35 
20975 FOR WAIT=1 TO 125 



and add: 

10 GOSUB 20900 
20 GOTO 10 

Run the program* 



2. The next steps use the same sequence used 
Type NEW and then? 



20300 REH ***Telephone Busy Signal*** 

20305 FOR RINGS= 1 TO 9 

20310 SOUND 2,40,6,10 

20320 FOR WAIT=1 TO 50 I NEXT WAIT 

20330 SOUND 2, 0,0,0 

20340 FOR WAIT = 1 TO 25 i NEXT WAIT 

20350 NEXT RINGS 

20360 RETURN 



Type LIST"D ♦ BUSY ♦ SO" ♦ Change these lines* 

20320 FOR WAIT=1 TO 400;NEXT WAIT 
20340 FOR WAIT = 1 TO 40 0 J NEXT WAIT 



Add: 

10 GOSUB 20300 
20 GOTO 10 

and run the program. 



Type 
to hear 



in *1 . 
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SOUND SUBROUTINES 

(CONTINUED) 



3. Use l„IST"D:TRAIN.SO to store this: 



20500 

20510 

20520 

20530 

205^0 

20550 

20560 

20570 



REM *****SteaM LocoMotive****** 

FOR L00P=1 TO 25 

FOR LOUD=10 TO 0 STEP -1 

SOUND 0,15,0, LOUD 

NEXT LOUD 

NEXT LOOP 

SOUND 0,0, 0,0 

RETURN 



Change this line* 



20520 FOR L0UD=15 TO 0 STEP -1 



add t 



10 GOSUB 20500 
20 GOTO 10 

and run the progran* 

You can hear the sound Made by this subroutine 
without changing any of the lines. Store it using 
LIST "D J BIRDS ♦ SO" , 

20100 REM *******Chir p ing Birds****** 

20110 FOR LOOP= 1 TO 
20120 FOR COUNT=l TO 5 
20130 FOR PITCH= 1 TO 15 
201^0 SOUND 2, PITCH, 10, 8 
20150 NEXT PITCH 
20160 NEXT COUNT 

20170 NEXT LOOP * 

20180 SOUND 2, 0,0,0 
20190 RETURN 



ACTIVITY *2 

CaMpers nay choose to add the subroutines listed in this 
activity to their "library", Renind theci that each nane 
should end with »SO, so that they are identified as sound 

subroutines, A suggested naMe is listed at the end of each 
entry. This can be done as an individual activity if cawpers 

are faniliar with the process. See the page called 
"ADDITIONAL SOUND SUBROUTINES" for the subroutine listings. 

Copies of the code are also available on a transparency. 
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a D' o dc ~r n o m a 



SOUND SUBROUTINES 
(CAMPER COPY) 



DIRECTIONS 



Type in the following subroutines. As you finish each 

* 

one, store it on your disk using the LIST coMMand and the 
name given at the end of the listing. Be sure to use the 
line numbers specified, so that you can include wore than one 
of the subroutines in the sene program. Type NEW before you 
start each sound effect. After storing the sound effect, add 
a GOSUB and listen to the result. 

1. A Siren 

20000 REM xckxxok A Siren xxxx* 

20010 FOR C0UNT=1 TO 20 - 

20020 FOR PITCH=20 TO 50 
20030 SOUND 0. PITCH. 10. 8 
20040 NEXT PITCH 
20050 NEXT COUNT 
20060 SOUND 0.0. 0,0 
20070 RETURN 

list"d:siren.so" 

2. Exploding Bomb 

20400 REM ***** Exploding Bottb ***** 

20410 FOR PITCH=30 TO 200 

20420 SOUND 0. PITCH. 10, 8 

20430 NEXT PITCH 

20440 SOUND 0,80,0,11 

20450 FOR WAIT = 1 TO 50 0 J NEXT WAIT 

20460 SOUND 0,0, 0,0 

20470 RETURN 

LIST'D J BOMB. SO" * 

3. A Bouncing Ball 

20600 REM ***** Bouncing Ball ***** 

20610 FOR BOUNCES- 1 TO 8 

20620 FOR C=1 TO 8 

20630 SOUND 0,124,14,4 

20640 NEXT C 

20650 SOUND 0,0, 0,0 

20660 FOR WAIT = 1 TO 4 0 0 5 NEXT WAIT 

20670 NEXT BOUNCES 

20680 RETURN 

list"d:bounce.so" 



1983. 

T20IA 



Copyright Atari, Inc., 



All rights reserved. 



ADDITIONAL SOUND SUBROUTINES 

(CAMPER COPY) 



4. A Jaekhacmer 

20700 REM ***** Jaekh3M«er ***** 

20710 FOR HAMMER=1 TO 300 

20720 FOUND 0,100,6,4 

20730 NEXT HAMMER 

20740 SOUND 0,0, 0,0 

20750 FOR WAIT=1 TO 500JNEXT WAIT 

20760 RETURN 

LIST"D t JAKHAMR ♦ SO" 



5, Thunder 

20800 REM ***** Thunder ***** 

20810 FOR LOOP=l TO 4 

20820 FOR PITCH=1 TO 255 

20830 SOUND 0, PITCH, 8, 15 

20840 NEXT PITCH 

20850 SOUND 0,0, 0,0 

20860 FOR WAIT=1 TO 350 ! NEXT WAIT 

20870 NEXT LOOP 

20880 RETURN 

list ,, d:thunder,so" 

6* Argiment Between Parent and Child Computers 

21000 REM **** Computer Arguwent **** 

21010 FOR PARENT=1 TO 100 

21020 SOUND 0 , INT <RND(0)*25) ,10,8 

21030 NEXT PARENT 

21040 SOUND 0,0, 0,0 * 

21050 FOR WAIT = 1 TO 5 0 0 J NEXT WAIT 
21060 FOR CHILD=1 TO 100 
21070 SOUND 1 , INT ( RND < 0 ) *2 00), 10, 8 
21080 NEXT CHILD 
21085 SOUND 1,0, 0,0 

21090 FOR WAIT = 1 TO 200 ‘.NEXT WAIT 
21095 RETURN 

list ,, d:argue,so , ‘ 
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SOUND SUBROUTINES 

( CAMPER COPY) 



20900 REM xxxxxxxxxxxOcesnxxxxxxxxxxx 

20910 FOR LOOP= 1 TO 2 

20920 FOR PITCH=0 TO 12 

20930 SOUND 0, PITCH, 8, 6 

20940 FOR WAIT=1 TO 5 l NEXT WAIT 

20950 NEXT PITCH 

20960 FOR PITCH=12 TO 0 STEP -1 

20970 SOUND 0, PITCH, 8, 4 

20975 FOR WAIT=1 TO 17 J NEXT WAIT 

20980 NEXT PITCH 

20985 NEXT LOOP 

20990 SOUND 0,0, 0,0 

20995 RETURN 



list ,, d:ocean.so m 



20300 REM xxxTelephone Eiusy Signalxxx 

20305 FOR RINGS= 1 TO 9 

20310 SOUND 2,40,6,10 

20320 FOR WAIT=1 TO 50JNEXT WAIT 

20330 SOUND 2, 0,0,0 

20340 FOR WAIT=1 TO 25 ♦ NEXT WAIT * 
20350 NEXT RINGS 
20360 RETURN 



LIST"DtBUSY .SO" 
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SOUND SUBROUTINES 

( CAMPER COPY) 




20500 REM *****Stean LocoMotive****** 

20510 FOR L00P=1 TO 25 

20520 FOR L0UD=1 0 TO 0 STEP -1 

20530 SOUND 0,15,0, LOUD 

20540 NEXT LOUD 

20550 NEXT LOOP 

20560 SOUND 0,0, 0,0 

20570 RETURN 



LIST"D: TRAIN. SO" 



20100 


REM *******Chirp ing Birds****** 


20110 


FOR L00P=1 


TO 4 


20120 


FOR COUNT = 1 


TO 5 


20130 


FOR PITCH=1 


TO 15 


20140 


SOUND 2, PITCH, 10, 8 


20150 


NEXT PITCH 


- 


20160 


NEXT COUNT 


«* 


20170 


NEXT LOOP 




20180 


SOUND 2,0,0 


, 0 


20190 


RETURN 





LIST"D 1 BIRDS .SO" 
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WRITING A, PROGRAM 



< 



At seme time during the presentation of this lesson you 
should cover the following: 

1. Subroutines can make complex problems 
easier to solve. 

2. The importance of planning before starting to 
write the program code. 

3. The importance of documentation in helping 
to debug a program. 

^ ♦ How to do top down programming. 

5. The time saved by building a subroutine library. 

6. How to determine when a section of a program 
should be written in a subroutine. 

7. A review of the way BASIC handles delay loops, 
and the necessity of using subroutines to make 
timing more consistent. 

8. The proper form of a subroutine, including 
a REM at the beginning. 

9. The use of LIST"D: " and ENTER"D X " 

to store and retrieve subroutines. 

The need to use descriptive names when 
storing subroutines. 

10. The importance of organizing line numbers 

when storing subroutines, so that when they are 
entered, they will not overwrite each other. 



There are five activities in the lesson. They should be 
done in order and none should be skipped. The lesson should 
not be done individually by students, since much of the 
learning will t3ke place in discussions. 

This lesson is the foundation for instruction that will 
take place in later modules. It is extremely important that 
all campers who are in Book 3 complete it, even if they have 
had some experience programming. 
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W RXTXNG A PROGRA M 

(CONTINUED) 



E>e sure the disk dr i ve » pr inter » and interface ( i f ^ou have 
o ne ) are on bef ore 'jou beqin th i s 1 e s s o n ♦ 

■■ mmm mr mm a n— »•— « wmmmmmm hi — — m ■— mmm mmm mm mmm mmm mm mmm o Mmmmnm ■hi > »i nrtiri ■■■■■■■■■ 



Activity *1 

It will be useful for campers to know how to print 3 
disk directory an d to list subroutines to the printer* 

1* Put the csnper 's personal disk in the drive 
and turn the computer on* 

2* When the disk activity stops* type DOS* 

3* When the directory appears* type "A" 

and press RETURN twice to see what is on the 
camper's disk* 

^ ♦ Type “A" again* When the linet 

DIRECTORY — SEARCH SF : *EC * LIST FILE? 
appears* type? 

* PJ 

This will list the directory on the printer* 

5* Type "B" to return to BASIC* + 

6* Choose 3 subroutine that is on the directory 
the camper just printed* Put it in memory 
using the ENTER M DJ " command* Then type! 

list m p: 11 

to list the subroutine to the printer* 
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Activity #2 



WRITING Ai F" FC O G FC & iM 

(CONTINUED) 




This activity takes students through the steps of 
planning a progran* A copy of the conpleted progrsh is 
available for the teacher's use* 



1* General description of the problen* 

Write a short story about a person 
who leaves the city to go to the beach 
on a vacation* 

2* Be More specific about what the program will do by 
writing out the story* 



A nan naned Fred was very bored with 
life* It seened like all he ever did was 
go around in circles* One day he decided to 
leave the big city* He got on a train and 
went to the beach for a vacation* The day 
he arrived# it was sunny and warn* The sound 
of the ocean was very calling to his nerves* 
However* ♦ *That night a storM cane up and it 
rained and it rained and it rained* He decided 
to phone hoMe to see if the weather was any 
better there* But since his children were always 
on the phone# all he got was a busy signal* 

Just as he was at the end of his rope 3nd 
ready to return hone# the birds began to 
sing, the sun cane out, and he**** 



3* Decide what pictures and sound effects night be 
appropriate and nake a list of theM* Then deternine which 
ones are available in the subroutine library and which ones 
need to be written* In this case, the subroutines have been 
written in preparation for this activity* Explain th3t 
nornally, very little code will be available at this stage of 
planning* This should enphasize the fact that keeping a 
subroutine library can save a great deal of tine* 



^ ♦ Divide the story into sections that will fit with 
the sound and graphics subroutines* 
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!-! R: ITXNG PROG FC M 

(CONTINUED) 



54 Write out English statements that show the solution 
step by step ♦ 

Title screen 
Author screen 

Introduce the main character and his problem 

Graphics routine for going around in circles 

Leaves the city on a train 

Train sound effect 

Arrives at the beach 

Ocean sound effect 

A storm comes up and it starts raining 

Graphics routine for rain 

It rains some more 

Graphics routine for rain 

It rains some more 

Graphics routine for rain 

He decides to phone home to ask about the weather 
Busy signal sound effect 

He is at the end of his rope when birds sing 

Birds chirping sound effect 

The sun comes out 

Graphics routine for sun 

And he***To be continued* 



Activity < : 3 

The English sentences are then translated into code and 
the program is run* More refinement takes place as bugs are 
f ound ♦ 

I 4 A skeletal listing of the main program is on the 
page called, "VACATION - MAIN PROGRAM"* Campers should fill 
in the blanks and write the code for the English statements* 
This should be done as a group (or you must check to make 
sure all information is correct)* Their completed version 
will be used in Activity to type in the main program* 
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WR :XTXNG Ai F" R O G5 R A M 

<CAMF : 'ER COPY) 



1* General description of the problem* 

Write a short story about a person 
who leaves the city to go to the beach 
on a vacation* 



2* Be More specific about what the program will do by 
writing out the story* 



A man named Fred was very bored with 
life* It seemed like all he ever did was 
go around in circles* One day he decided to 
leave the big city* He got on a train and 
went to the beach for a vacation* The day 
he arrived , it was sunny and warm* The sound 
of the ocean was very calming to his nerves* 
However ♦♦♦ That night a storm came up and it 
rained and it rained and it rained* He decided 
to phone home to see if the weather was any 
better there* But since his children were always 
on the phone, all he got was a busy signal* 

Just as he was 3t the end of his rope and 
ready to return home, the birds began to 
sing, the sun came out, and he**** 



3* Decide what pictures and sound effects might be 

% 

appropriate and make a list of them* Then determine which 
ones are available in the subroutine library arid which ones 
need to be written* 



^* Divide the story into sections that will fit with 
the sound and graphics subroutines* 
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WRITING <=% F’ROGRA M 
(CAMPER COPY - CONTINUED) 



5. Write out English statenents that show the solution 
step by step ♦ 

Title screen 
Author screen 

Introduce the Main character and his problen 

Graphics routine for going around in circles 

Leaves the city on a train 

Train sound effect 

Arrives at the beach 

Ocean sound effect 

A storM cones up and it starts raining 

Graphics routine for rain 

It rains sone More 

Graphics routine for rain 

It rains sone More 

Graphics routine for rain 

He decides to phone hoMe to ask about the weather 
Busy signal sound effect 

He is at the end of his rope when birds sing 

Birds chirping sound effect 

The sun cones out 

Graphics routine for sun 

And he.. .To be continued* 



4 * 
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VACATION — MAIN F“ Fc O €3 Ft A M 
10 REM * x*xx *»;)*: MAIN PROGRAM ***>*;> k**x 



50 


GOSUE: 


1030 0 ’.REM 


X 


Title Page 


X 


nr nr 

\j V*J 


GOSUB 


290 0 0 IREM 


X 


Wait Loop 


X 


60 


GOSUB 




_ i REM 


X 


Author Page 


X 


65 


GOSUB 




_ ♦ REM 


X 


Wait Loop 


X 


70 


GOSUB 


1100 


i REM 


* 


Introduction 


X 


80 


GOSUB 




_:rem 


X 


Wait Loop 


X 


90 


GOSUB 




_SREM 


xGoing in Circle 


s* 


100 


GOSUB 


1200 


i REM 


^Leaving the city 


X 


110 


GOSUB 




_ i REM 


X 


Train Sound 


X 


120 


GOSUB 


1300 


JREM 


X 


Arrive at beach 


X 


130 


GOSUB 




_ i REM 


X 


Ocean Sound 


X 


140 


GOSUE: 


14 0 0 


iREM 


X 


The StorM 


X 


15 0 


GOSUE: 




_ ! REM 


X 


Wait Loop 


X 


160 


GOSUB 




_ i REM 


X 


Rain Graphic 


X 


170 


GOSUB 


170 0 


i REM 


X 


Rain text 


X 


180 


GOSUB 




_ i REM 


X 


Wait Loop 


X 


19 0 


GOSUB 




_ i REM 


X 


Rain graphic 


X 


200 


GOSUB 


1700 


i REM 


X 


Rain text 


X 


210 


GOSLJB 




_ i REM 


X 


Wait Loop 


X 




Gr aph 


ics routine 


for rain drops 




230 


GOSUE: 


150 0 


IREM 


X 


Phone Hone 


X 



Sound effect for telephone busy signal 

250 GOSIJB 1800 iREM * End of Rope * 

Sound effect of birds chirping 

270 GOSUE: 1900 iREM * Sunshine text * 

Delay loop to keep text on screen 

Graphics routine for sun shining 

295 GOSUE: 290 0 0 * REM * Wait Loop * 

30 0 GOSUE: 2000 1 REM * Continued text * 

Delay loop to keep text on screen. 

350 END 
360 REM 
370 REM 
380 REM 



LIST OF SUBROUTINES 

INTRO . TXT 
LEAVING . TXT 
BEACH . TXT 
STORM ♦ TXT 
RAIN . TXT 
PHONHOME . TXT 
ENDROPE.TXT 
SUNSHINE . TXT 
CONTINUE ♦ TXT 
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WRITING A PROGRAM 

(CONTINUED) 



2 ♦ The subroutines listed below are on the E:ASIC 
Utility Disk* Enter and store theM using the following steps 
exactly as they are written* They put the text on the 
screen* The information in parentheses is the REMark in the 
«ain prograM* 

Use these steps for each subroutine* 

\ 

1* Type NEEW to clear memory* 

2. Put in the BASIC Utility Disk* 

3* Type ENTER"D* ", putting the subroutine 

name in the blank* 

^* Put in the camper's personal disk* 

5* Type LIST"DJ " , putting the subroutine 

name in the blank* 

6 * GOTO 1. 

LIST OF SUBROUTINES 



INTRO* TXT 
LEAVING* TXT 
BEACH* TXT 
STORM * TXT 
RAIN* TXT 
PHONHQME.TXT 
ENDROPEE ♦ TXT 
SUNSHINE* TXT 



Activity |_5. 

Putting it 3ll together* 

1* Type in the main program* 

2* Print a directory of the camper's disk* to 
get a list of subroutines* 

3* ENTER all subroutines* DO NOT TYP E NEW AFTER 
EACH ENTRY ! 

4 * Run the program and debug it* 

5 * Save the program using S A V E " D t 1 1 * p u 1 1 i n g 

a name the camper chooses in the blank* 



♦ t 
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5.-4 F< UT. T HI i"s| G PROGRAM 

(CONTINUED) 



Activity #5 

CoMplete 3 t least one of the challenges listed below. 

1. Finish the story by adding text . sound, and 
graphics subroutines. 



2. Rearrange the nain program, so that action 
happens in a different sequence. 



3. Use entries in the subroutine library 

to write an original prograM that tells 
a story. 
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in in no md k oo 



*=* VACATION STORY 



10 REM *«*******MAIN PROGRAM********* 



50 


GOSUB 


10300 irem 


* 


Title Page 


X 


55 


GGSUB 


29000 :rem 


X 


Wait Loop 


X 


60 


GOSUB 


ioioo :rem 


X 


Author Page 


X 


65 


GOSUB 


2900 0 JREM 


X 


Wait Loop 


X 


70 


GOSUB 


1100 : REM * 


Introduction 


X 


80 


GOSUB 


29000 :rem 


X 


Wait Loop 


X 


90 


GOSUB 


ioooo :rem 


xGoing in circles* 


100 


GOSUB 


120 0 1 REM 


^Leaving the city 


X 


110 


GOSUB 


20500 1REM 


X 


Train sound 


X 


120 


GOSUB 


1300 1REM 


X 1 


Arrive at beach 


X 


130 


GOSUB 


20900 1REM 


X 


Ocean sound 


X 


140 


GOSUB 


1400 1REM 


X 


The Storri 


X 


150 


GOSUB 


29000 1REM 


X 


Wait Loop 


X 


160 


GOSUB 


1060 0 1 REM 


X 


Rain graphic 


X 


170 


GOSUB 


170 0 1 REM 


X 


Rain text 


X 


180 


GOSUB 


29000 1REM 


X 


Wait Loop 


X 


190 


GOSUB 


10600 1REM 


X 


Rain graphic 


X 


200 


GOSUB 


170 0 1 REM 


X 


Rain text 


X 


210 


GOSUB 


29000 1REM 


X 


Wait Loop 


X 


220 


GOSUB 


10600 1REM 


X 


Rain graphic 


X 


230 


GOSUB 


150 0 1 REM 


X 


Phone Hone 


X 


240 


GOSUB 


20300 1REM 


X 


Busy Signal 


X 


250 


GOSUB 


1800 1REM 


X 


End of Rope 


X 


260 


GOSUB 


20100 1 REM 


X 


Chirping birds 


X 


270 


GOSUB 


190 0 1 REM 


X 


Sunshine text 


X 


280 


GOSUB 


29000 1REM 


X 


Wait Loop 


X 


290 


GOSUB 


10200 1REM 


X 


Sun graphic 


X 


295 


GOSUB 


29000 1REM 


X 


Wait Loop 


X 


300 


GOSUB 


2000 1REM 


X 


Continued text 


X 


310 


GOSUB 


29000 1REM 


X 


Wait Loop 


X 


350 


END : 


REM * End 


of 


Main Program 


X 



36 0 REM 
370 REM 
380 REM 

1100 REM ***x**Intr oduct ion********** 
1105 GRAPHICS 1+16 
1110 ? #6 
1115 ? *6 
1120 ? *6 

1125 ? *61"A MAN NAMED FRED" 

1127 ? *6 

1130 ? *6;"WAS YERY BORED" 

1135 ? *6 

1140 ? *61"WITH LIFE. IT" 

1145 ? *6 

1150 ? * 6 1 "SEEMED LIKE ALL HE" 

1155 ? *6 

1160 ? # 6 1 "EYER DID WAS GO" 

1165 ? ^ 6 

1170 ? t-6 J " AROUND IN CIRCLES." 

1180 RETURN 
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A. VACATION STOR Y 



1200 REM xxxxxLesving the ci tyx****** 
1205 GRAPHICS 1+16 
12.10 ? *6 
1215 ? #6 
1220 ? #6 

1225 ? #6 } "ONE DAY HE " 

1227 ? *6 

1230 ? *6J "DECIDED TO LEAVE" 

1235 ? *6 

1240 ? #6 i "THE BIG CITY ♦ " 

1245 ? #6 

1250 ? #6 1 "HE GOT ON A" 

1255 ? *6 

1265 ? $6 i "TRAIN ♦ 

1270 . RETURN 

1300 REM iKxixjKArrivsl 3t beach******* 
1302 GRAPHICS 1+16 



1305 


*P 

• 


*6 








1310 


r> 

• 


*6? 


"♦*.*. ♦ AND 


WENT 


TO" 


1315 


*p 

• 


*6 








1320 


*p 

• 


*6' f 


"THE BEACH 


FOR 


A" 


1325 


• 


*6 








1330 


r? 

• 


#6 ; 


"VACATION. 


THE 


DAY" 


1335 


*p 

• 


*6 








1340 


*p 

• 


*6? 


"HE ARRIVED 


, IT 


WAS" 


1345 


• 


*6 








1350 


'P 

• 


*6J 


"SUNNY AND 


WARM 


II 

♦ 


• 1355 


• 


♦ 6 








1360 


• 


#6 i 


"THE SOUND 


OF THE" 


1365 


• 


*6 








1370 


*p 

• 


*6t 


"OCEAN WAS 


VERY 


II 


1375 


'P 

• 


*6 








1380 


'P 

• 


#6? 


"CALMING TO 


HIS 


ll 


1385 


r? 

m 


#6 








1390 


'P 

• 


#6 ; 


"NERVES. " 






1395 


RETURN 







1400 REM xxxxxxxxxxStor m************* 
1410 GRAPHICS 2+16 
1425 ? *6 
1440 ? *6 

1445 ? f-6 i "H O W E V E R....." 

1450 ? *6 

1455 ? #6 J "THAT NIGHT A STORM" 

1460 ? #6 

1465 ? *6J "CAME UP AND IT" 

1470 ? *6 

1475 ? *6 > "RAINED ♦♦♦.♦" 

1480 RETURN 



r i 

L J 
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UACATXON STOR: Y 



■ II 



1500 


REM ********Phone heme*** 


1501 


GRAPHICS 1+16 


1505 


'P 

• 


#6 


1510 


*P 

• 


=11=6? "HE DECIDED TO " 


1515 


'P 

• 


=1=6 


1520 


'P 

• 


=1=6 ? "PHONE HOME TO SEE" 


1525 


*P 

• 


*6 


1530 


'P 

• 


=#=6? "IF THE WEATHER" 


1535 




=11=6 


1540 


'P 

• 


=1=6? "WAS ANY BETTER " 


1545 


*P 

• 


#6 


1550 


*P 

• 


*6? "THERE. BUT SINCE" 


1555 


'P 

• 


♦ 6 


1560 


'P 

• 


#6? "HIS CHILDREN WERE" 


1565 


• 


*6 


1570 


'P 

• 


=1=6? "ALWAYS ON THE " 


1575 


*P 

. • 


#6 


1580 


'P 

• 


=1=6 ? "PHONE t ALL HE GOT" 


1585 


*P 

• 


1=6 


1590 


*P 

• 


#6? "WAS A BUSY SIGNAL." 


1595 


RETURN 


1700 


REM ******And it rained** 


1710 


GRAPHICS 2+16 


1720 


'P 

• 


1=6 


1730 


'P 

• 


*6 


1740 


'P 

• 


#6 


1750 


*P 

• 


*6 


1755 


'P 

• 


*6 


176 0 


'P 

• 


*6? " AND IT RAINED. ♦ . " 


1770 


RETURN 


1800 


REM *****End of his rope* 


1805 


GRAPHICS 1+16 


1810 


'P 

• 


1=6 


1815 


• 


*6 


1820 




1=6 


1825 


*P 

• 


1=6 


1830 


? 


1=6 


184 0 


? 


1=6? "JUST AS HE WAS AT" 


1845 


'P 

• 


#6 


1850 




1=6? "THE END OF HIS " 


1855 


'P 

• 


1=6 


1860 


'P 

• 


*6? "ROPE AND READY TO" 


1865 


'P 

• 


*6 


1870 


*P 

• 


1=6? "RETURN HOME, THE" 


1875 


*P 

• 


1=6 


1880 


*P 

• 


*6? "BIRDS BEGAN TO" 


1885 


? 


*6 


189 0 


? 


#6? "SING. ♦ . " 


1895 


RETURN 



Copyright Atari , Inc. , 



1983. 

35LP 



All rights reserved. 



A VACATION STOR V 



10200 

10205 



REM xxxx xxxxxxxSunxxxxxxxxxxx 
GRAPHICS 3+16 



10210 


• 


#6J " 


10215 


*P 

• 


*6J " 


10220 


*P 

• 


*6 J " 


1 0 225 


m 


*6: " 


10230 


V 

• 


*6:" 


10235 


*P 

• 


*6? " 


10240 


• 


#6: n 


10245 


• 


*6: " 


10250 


*P 

• 


*6: " 


10255 


• 


*6 J " 


10260 


*P 

• 


*6?" 


10270 


'P 

• 


*6: n 


10275 


*P 

• 


♦6:" 


10280 


'P 

• 


♦ 6 J " 


10285 


• 


*6: " 


10290 


RETURN 



1032 =) 



10300 
10310 
10315 
10320 
25 
10330 
10340 
10345 
10350 
10355 
10360 
10365 
10600 
10605 
10610 
10620 
10630 
10640 
10650 
10660 
10 670 



REM xxxxxxxxTi t le psgexxxxxxxx 

GRAPHICS 2+16J COLOR 2 

PRINT *6J PRINT *6 t PRINT *61 PRINT *6 



A" 

VACATION" 

STORY" 



19,9 
1»9 
1 , 1 



PRINT *6;" 

PRINT *6;" 

PRINT *6J" 

PLOT 1,1 
DRAWTO 19,1 
DRAWTO 
DRAWTO 
DRAWTO 
RETURN 

REM xxxxxxxxxRain***xxx*xxxxxxx 
FOR LOOP=l TO 3 
GRAPHICS 3+16 
FOR COUNTER= 1 
PRINT *6,"+"; 

NEXT COUNTER 
GRAPHICS 0 
NEXT LOOP 
RETURN 



TO 84 
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*-* VACATION 



3 T O Ft Y 



1900 

1902 

1910 
1920 
1930 
1950 
1960 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2065 
2070 
2080 
2085 
20 95 
1 0 00 0 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10100 
10110 
10120 
10130 
10135 
10140 
10150 
10155 
10160 
10170 



REM xxxxxxxxxSunshi nexxxxxxx**** 
GRAPHICS 2+16 
? *6 
? *6 
? #6 
? #6 
? *6 

? *6;"THE SUN CAME OUT..*." 

RETURN 

REM ***x*To be continued****** 

GRAPHICS 2+16 
? #6 

? *6? " ♦ . ♦ .AND HE. " 

? #6 

? *6 ?" <TO BE CONTINUED)" 

? *6 
? *6 

r *t-o* ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

? *6*,"Y0U FINISH THE STORY" 
r nr o * ♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

RETURN 

REM *****Goinq in circles***** 
GRAPHICS 7+16 i COLOR 2 
FOR COUNTER 35 ! TO 50 
Z=Z+0 .5 

X=SIN(Z)*25.Y=C0S(Z)*22 
PLOT X+80 , Y+45 
NEXT COUNTER 
RETURN 

REM *******Author Page********* 
GRAPHICS 2+16 

POSITION 4,2: PRINT *6;"*****)rt!******" 
POSITION 4,3: PRINT #6;"* *" 

POSITION 4,4J PRINT *6?"* BY *" 

POSITION 4,5: PRINT *6J"x *" 

POSITION 4,6JPRINT #6J"x YOUR NAME *" 

POSITION 4.7J PRINT #6:"* x" 

POSITION 4,8: PRINT *6;"*************" 

RETURN 
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20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20300 
20305 
20310 
20320 
20330 
20340 
20350 
20360 
2050 0 
20510 
20520 
20530 
20540 
20550 
20560 
20570 
20900 
20910 
20920 
20930 
20940 



REM xxxxxxxChirp ing Eiirdsxxxxxx 

FOR L00P=1 TO 4 

FOR C0UNT=1 TO 5 

FOR PITCH=1 TO 15 

SOUND 2 ♦PITCH, 10,8 

NEXT PITCH 

NEXT COUNT 

NEXT LOOP 

SOUND 2, 0,0,0 

RETURN 

REM xxxTelephone Busy Signalxxx 

FOR RINGS= 1 TO 9 

SOUND 2,40,6,10 

FOR WAIT = 1 TO 50 5 NEXT WAIT 

SOUND 2, 0,0,0 

FOR WAIT=1 TO 25:NEXT WAIT 

NEXT RINGS 

RETURN 

REM xxxxxstean Loecmot ivexxxxxx 

FOR LOOP=l TO 25 

FOR LQUD= 1 0 TO 0 STEP -1 

SOUND 0,15,0, LOUD 

NEXT LOUD 

NEXT LOOP 

SOUND 0,0, 0,0 

RETURN 

REM xxxxxxxxxxxOcesn*xxxxxxxxxx 

FOR LOOP=l TO 2 

FOR PITCH* 0 TO 12 

SOUND 0, PITCH, 8, 6 

FOR WAIT = 1 TO 5 { NEXT WAIT 



20950 NEXT PITCH 

20960 FOR PITCH=12 TO 0 STEP -1 

20970 SOUND 0, PITCH, 8, 4 

20975 FOR WAIT=1 TO 17 {NEXT WAIT 

20980 NEXT PITCH 

20985 NEXT LOOP 

20990 SOUND 0,0, 0,0 

20995 RETURN 

29000 REM xxxxxxxxWait 1 oop xxxxxxxxxx 
29010 FOR WAIT=1 TO SOOtNEXT WAIT 
29020 RETURN 
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MODULE 6 - CONDITIONALS 



OBJECTIVES 

Know how to use IE* ♦THEN in prograns* 

Be faniliar with how AND and OR work* 

Given 3 progran that uses AND or OR* be able to 
predict output* 

Know how to use strings in comp ari sons* 

MATERIALS REQUIRED 

BASIC Cartridge 
BASIC Utility Disk 
Canper's Personal Diskette 

REFERENCES 

Inside At3r i Basic - pp* 53-56* 59 

\ 

Your Atar i Computer - pp * 9 0-91- -* 

Atar i 40 0/80 0 Basic Reference Manual - pp* 18-20 



CONTENT 



Covers nuneric variables and strings with 
conditionals* Includes a brief introduction to the use of 
joysticks and controllers. A BASIC Cartridge and the 
caMper's Personal Diskette are required for all of the 
lessons* 

Lesson 1 - IF. .THEN 

Pages 1-4 

New Statenent 
IF ..THEN 

Mater ials 

BASIC Utility Disk.’ FORTUNE 

Conditionals and branching are introduced 
using nuneric expressions* 
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IF* 



THE BM! 



In this lesson f conditionals and branching are introduced using 
numeric expressions* The following concepts should he covered at 
soMe tine during the activities* A transparency and student copies 
of the code used in this lesson and the next are available* 



1* An IF* ♦ THEN block is used for an either-or situation* The 
IF statement contains a comparison* The THEN statement has an action 
dependent on the IF statement* 



2* The computer examines the comparison contained in the IF 
statenent* The THEN statement is executed only if the condition in 
the comparison is true* 



3* Numeric expressions are compared using* 

= equal to 

> greater than 

less than 

<> not equal to 

<= less than or equal to 

>= greater than or equal to 



4* The following comparisons can be Made* 

IF 4*7= 90 THEN*** 

IF INTCRNDC 1 )*4)=3 THEN*** 

IF NUM10NUM2 THEN 
IF 8 <55 THEN 
IF XOY THEN 



Be s u r e the disk, dr ive * printer » and inter f ace ( if you have one ) are 
on b e f o r e you b e g i n this 1 esson ♦ 



A ctivity £1 



This program is a simple 
Make decisions in a progren* 



illustration of using < * >* 
Type in the prograM and run 



and = to 
it ♦ 



10 
2 0 
30 
4 0 
50 
60 
70 
in 
80 
90 



REIM Exanple of a conditional 
? “7 , ‘* REM x< Clears screen * 
?J? “Type in a number J J 
INF : 'UT NLJM 

IF NUM> 1 0 THEN ? “That's too 
IF NUM<10 THEN ? “That's too 
IF NUM=1 0 THEN ? “That's the 
Mind ♦ “ : GOTO 90 
GOTO 30 
END 



big ♦ “ 

SMal 1 ♦ “ 
number I had 
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=" * hh THEN 
(CONTINUED) 

Ask campers to identify the line numbers with comparisons ♦ Step 
through the program using the numbers 1, 100 t and 10 to see how 
IF* ♦THEN works* Be sure to note that in this program the IF* ♦ THEN is 
used to exit a loop under certain conditions* 

Activity #2 

Run the program on the E’.ASIC Utility Disk called "FORTUNE" by 
typing RUN M D : FORTUNE" * Then LIST the program and: 

1* Find the conditionals* 

2* Discuss how the computer randomly selects one 
of the three possible words to finish each of 
the sentences* 

3* The use of IF ♦♦ THEN in line 230 to control 
looping in the program* 

A transparency of the program is available* The program is listed 
bellow* 



10 
20 
3 0 
^0 

5 0 

6 0 
70 
SO 
90 
100 
110 
120 
1 3 0 
140 
1 5 0 
160 

1 7 0 

18 0 
1 9 0 



+ n 



1 1 * 

t 



R E: M F r o r t u n e teller 

PRINT "I:-": REM Clear screen 

PRINT J PRINT "I will tell you your 

PRINT " Le t ' s see * . . " J PRINT 

NUM=INT ( 3*RHD < 0 ) ) 

F r QR WAIT = 1 TO 10 00 : NEXT WAIT 

F* R I N 1 1 1 *4 *4 4* *4 + *4 4” 4* 4* 4 ‘4 *4 

F : ' F< I N T " Y o u w ill b e c o Me v e r y 
IF NLIM = 0 THEN PRINT "rich*" 

IF N U M = 1 THEN PRINT "poor 
I F N U M = 2 T 1-1 E N F : ' R I N T "power f u 1 * 

Nl)M = INT ( 3*RND ( 0 ) ) 

FOR WAIT = 1 TO 75 0 S NEXT WAIT 
PRINT "You will also be very 
IF Nl)M = 0 THEN PRINT "happy*" 

IF NUM=1 THEN PRINT "fa nous. 

THEN PRINT "popular. 

•f 4- + + 4- 4- 4- 4- 4- 4- + 4" 



f or tune , 1 



1 1 



1 1 



1 1 * 
t 



1 1 



IF NUM=2 
P R INI "+ 



1 1 



GOTO 



3 0 
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FORTUNE TELLER 



10 REM Fortune teller 
20 PRINT ">".REM Clear screen 
30 PRINT l PRINT “I will tell you your 
40 PRINT "Let's see " J PRINT 
50 NUM=INT<3*RND< 0 ) ) 

60 FOR WAIT=1 TO 1000JNEXT WAIT 
TO PRINT " + *4* + + + + + + + + + *4* + M 
80 PRINT "You will becone very " J 
90 IF NUM = 0 THEN PRINT "rich." 

100 IF NUM=1 THEN PRINT "poor." 

110 IF NUM=2 THEN PRINT "powerful." 
120 NUM=INT(3*RND( 0 ) ) 

130 FOR WAIT = 1 TO 750 l NEXT WAIT 
140 PRINT "You will also be very "J 
150 IF NUM=0 THEN PRINT "happy." 

160 IF NUM=1 THEN PRINT "fanous," 

170 IF NUM=2 THEN PRINT "popular." 

180 PRINT "+++++++++++++" 
190 GOTO 30 






f or tune ♦ " 
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XF * .THEN 
(CONTINUED) 



■ Activity #3 

This progrsM Might, be used at, the beginning of' a gawe for two 
people to settle the age old problem of who gets to go first* Type 
it in and then run it several ti«es. 

10 KEM ** Coin Toss ** 

20 DIM R*<1> 

30 ? "7"!REM Clears screen 

^0 ? "One person chooses heads, the" 

50 ? "other person chooses tails*"!? 

60 ? "Press return when you have decided* "5 
7 0 INF : 'UT R$ ♦ ? 

80 IF INT ( 2* ( RND < 1 ) ) > <1 THEN ? "The person 

who chose heads goes first. "JGOTO 100 

90 ? "The person who chose tails goes first*" 

100 GOTO 100 



Discuss how the conditional in line 8 0 controls the? flow of the 
prograru Explain how line 70 enables one to let the user control the 
prograw* That is, the progran stops at line 70 until the user 
presses RETURN . Talk about the use of DIM R$(l> at the beginning of 
the prograw. 
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XF - * THEN 
WXTH STRINGS 



When C3Mpers finish this 
lesson they should know the following^ 



1* Strings can be used in IF ♦♦THEN blocks ♦ 

2 ♦ IF-THEN evaluates a comparison and if 
true, carries out an action ♦ 

3* String comparisons use = and <>♦ They may also 
use < f >, <=, and >=, but those will not be 
considered in this lessoru 

♦ When the comparison is evaluated, the 
strings must match exactly, for 
example, "Yes"="Yes" is true, but 
" Yes"=" YES" is not true* 



Activity t 1 

Type in the following program* Ask campers to predict what the 
output will be before they run the program* 

10 REIM * A matter of taste * 

20 REM * Using strings in IF ♦♦ THEN blocks * 

3 0 DIM A N S $ < 3 ) 

^0 ? "9*" JREM * Clears screen # 

50 ? "Do you like chocolate? (Type YES or NO)" 

60 INPUT ANS$ 

70 IF ANS$="YES" THEN ? "You have good. taste* " : 

GOTO 90 

SO ? "Your taste is questionable!" 

9 0 END 

Discuss the program* Ask campers to explain lines 60 and 70* Try 
typing ' ' Y U P ' ' a n d discuss the unfortunate r e s u 1 1 s ♦ C h a n g e "YES" i n 
line 60 to "Yes", "yes", "y" , and/or "Y" and run the program again to 
illustrate the fact that the strings must match exactly* 
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XF + ♦ THEN 
WXTH STRINGS 
(CONTINUED) 



Activity #2 



Run the program on the BASIC Utility Disk called PASSWORD by 
typing RUN"D i PASSWORD" ♦ The program is printed below for your 
information* Have campers (if they do not get the password the first 
time) LOAD the program, LIST it, and find out why it destroyed itself 
when an incorrect word was given* Caution campers not to use NEW in 
their programs! This should be a lesson to them* 



F" A. S S W O Ft D 



PROGRAM 



10 REM * Self destructive program * 

20 ? ">" t REM * Clears Screen * 

30 DIM WORD* ( 25 ) , PASSWORDS ( 25 ) 

^0 ? "If you want to read my message," 

50 ? "you must give me the- password*" 

60 ? "If you give me the wrong word," 

70 ? "the program destroys itself*" 

80 INPUT WORD* 

90 PASSWORD* 22 " ATARI" 

100 IF WORD* < > PASSWORD* THEN NEW 

110 ? ♦? "Congratulations! You guessed" 

120 ? "the password*" * 

130 END 
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XF THEN 
W m T" M STRINGS 
(CONTINUED) 



Activity #3 



Run the progrsn on the BASIC Utility Disk celled WHOAMI* In it 
the user uses a clue to identify historical figures who are famous 
for their contributions to computing* The program uses strings in 
comparisons* It is available on the page called “WHO Ah I?“* After- 
campers run the program, they should list the program to the printer 
(using LIST ,, Pt“)* Camper copies are available if you are unable to 
get a listing from the printer* Examine the program* E'.e sure to 
cover at least the following items* 



1* Find the main program and each of the subroutines* 

2* Discuss the subroutine in lines 2700-2770, 
including its relationship to each of the 
“CORRECTANS$= “ comparisons in the main program* 

3* Point out the fact that the program would have 

been much longer without the use of subroutines* 

^ ♦ Talk about formatting on the screen and how 

important it can be to the user (eg* What would 
happen if the possible answers were not 
available each time a question were 3sked?) 

5* Challenge campers to change the program so that 

a* it gives the user a certain number of 
chances before giving the answer* 

b* it does not give the answer unless the 
user asks for it* 

c* it adds more people to the program* 
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3-1 H O AH JL'P 

10 REM *Who Am I-Nsnes in CoMputing* 

20 DIM CORRECTANS$< 1 ) ,USERANS$< 1 ) ,R$< 1 ) 
30 GOSUB 2600 :REM ** Directions ** 



40 GOSUE: 2100 JREM ** Babbage ** 

50 GOSUE: 280 0 JREM ** Answers ** 

60 CORRECTANS*="E" 

70 GOSUE: 270 0 JREM ** Answer Input ** 
80 GOSUE: 29000 JREM ** Wait Loop ** 
90 GOSUE: 2500JREM ** Hollerith ** 
100 GOSUB 2800 JREM ** Answers ** 
110 CORRECT ANS$="B" 

120 GOSUE: 270 0 JREM ** Answer Input** 
130 GOSUE: 29000 JREM ** Wait Loop ** 
14 0 GOSUE: 2200 JREM ** Ada ** 

150 GOSUE: 2800 JREM ** Answers ** 

160 CORRECT ANS$="C" 

170 GOSUE: 270 0 JREM ** Answer Input** 
180 GOSUE: 29000 JREM ** Wait Loop ** 
190 GOSUB 2300 JREM ** Pascal ** 
200 GOSUE: 2800 JREM ** Answers ** 

210 CORRECT ANS$=" A" 

220 GOSLJE: 270 0 JREM ** Answer Input** 
230 GOSUE: 29000 JREM ** Wait Loop ** 
240 GOSUB 2400 JREM ** Boole ** 

250 GOSLJE: 2800 JREM ** Answers ** 



260 CORRECT ANS$="D" 

270 GOSUE: 2700 JREM ** Answer Input** 

280 GOSUE: 29000 JREM ** Wait Loop ** 

290 END 

2100 REM *** Charles Babbage *** 

2110 ? "I: " J PRINT 

2120 ? "An English natheMatician and" 

2130 ? "inventor who is often called" 

2140 ? "the Father of CoMputing. tie" 

2150 ? "said, 'I 3M thinking that all" 

2160 ? "those tables Might be" 

2170 ? "calculated by Machinery*''" 

2180 ? J? 

2190 RETURN 

2200 REM ****** ADA ***** 

2210 ? "I:" J PRINT 

2220 ? "An exceptional English MatheMatician" 
2230 ? "who is credited with being the first" 
2240 ? "person to Make the stateMent that" 
2250 ? "coMputers can do only what you" 

2260 ? "prograM theM to do* Wrote about" 

2270 ? "Babbage's Analytical Engine*" 

2280 PRINT J PRINT 
2290 RETURN 
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WHO AM HZ'? 

2300 REM xxx Blaise Pascal xxx 

2310 ? n 'J ! ‘ J PRINT 

2320 ? "A French Mathewatician who was" 

2330 ? "the first person to invent a" 

2390 ? "significant calculating " 

2350 ? "Machine." 

2360 PRINT i PRINT 
2370 RETURN 

2900 REM xxx Boole xxx 

2910 ? PRINT 

2920 ? "An English logician. The" 

2-930 ? "pioneer of Modern syMbolic logic." 

2-9-90 PRINT t PRINT 
2-950 RETURN 

2500 REM xxx Hollerith xx* 

2510 ? 

2520 ? "An AMerican inventor. The" 

2560 ? "first to do a practical" 

2570 ? " inp leMentat ion of punched cards." 

2580 PRINT tPRINT 
2590 RETURN 

2600 REM xx Who Am I - Directions xx 
2610 ? :? 

2620 ? " WHO AM I?" 

2625 ? 

2630 ? "After you read the description" 

26- 90 ? "of the person, choose your" 

2650 ? "answer froM the naMes given." 

2660 ? "Type in the letter of the" 

2670 ? "correct answer. Each of the" 

2680 ? "ri3Mes is fsMous in coMputing." 

2685 ? "Press RETURN when you are " 

2690 ? "ready to begin." 

2695 INPUT R$ 

2699 RETURN 

2700 REM xxx Asks for answer xxx 
2710 REM x input with correct answerx 

2720 ? :? "Who 3M I? Type a letter"; * 

2730 INPUT USERANS* 

27- 90 IF USER ANS$= CORRECT ANS$ THEN ? "That's corr ect ."; RETURN 
2750 ? "That's not My nsMe. The" 

2760 ? "correct answer is " J CORRECTANS* J " . " 

2770 RETURN 

2800 REM xxx Answers xxx 

2810 ? :? ;? 

2820 ? " A. Pascal" 

283-0 ? " B. Hollerith" 

2890 ? " C. Ada" 

2850 ? " D. Boole" 

2860 ? " E. Babbage" 

2870 RETURN 

29000 REM xx Delay Loop xx 
29010 FOR WAIT = 1 TO 50 0 J NEXT WAIT 
29020 RETURN 
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XF ♦ -THEM 
W HI T B-fi STRI i*s! G S 
(CONTINUED) 



Activity $ :Z t 

In this activity, canpers will examine s number puzzle that 
combines strings and numeric variables* F<UN the program called 
NtJMPUZL and then list it to the printer* A listing is available for 
the instructor on the pages titled "NUMBER PUZZLE"* Camper copies 
are available if 3 printer listing is not possible* 

Ask campers to use their listing to do the following; 

1* F r ind the beginning and end of the main program* 

(Lines 10 - 2^0 

2* Explain how the user is able to choose the 

number puzzle to be solved* (Lines 1^0 - 180) 

3* Describe problems that might arise with 

string comparisons in the IF**THEN statements* 

(A solution to the problem of matching up per /lower 
case and accepting YES or Y or y or yes, etc* 
is covered in the next lesson*) 

^ ♦ Decide whether it is possible to write 

one subroutine that can take the place of 
» 

each of the subroutines written for the number 
sequences (as was done in the previous activity 
in the "Nho Am I?" program)* 

Answers are not given in the program because one of the 
challenges in Activity 4 : 5 is to rewrite the program including the 
correct answer if the user asks* The first three number sequences 
are easy* The fourth ("D") is a bit more difficult* The sequence 
ist 





cr 



, 






5 



t 



c r 



and the answer is "^"* 
letters in each of the 
nine ( o n e , two, three, 



These numerals stand for the number of 
words spelling out the numbers one through 
four, five, etc* ) ♦ 
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IF* ♦ "F M EE M 
USING STRI 3* h *E G S 

(CONTINUED) 



A ctivity #5 

Challenge campers to change the NuMber Puzzle progran in one of 
the following ways! 



1* Add More sequences* 

2* Add hints each tine an incorrect answer is 
input ♦ 

3* Give More chances to solve the puzzle* 

^ ♦ Allow the user to "give up" and get the answer 
froM the computer* 

5* Use only one subroutine in place of the four that 
were used for the sequences* Use the 
program in the previous activity as a Model* 

6* Print the answer after a certain nuMber of 
guesses ♦ 






♦ t 
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NUMBER F"UZ:2:L_E: 



10 REM *** Nunber Pattern Puzzle *x* 

20 DIM ANS$(1), MORES ( 1 ) 

30 ? :? 

4 0 ? "This is a nuMber puzzle* Try" 

50 ? "to figure out what the next" 

60 ? "nuMber will be in each sequence" 

70 ? "These are the sequences*"!? 

80 ? "A. 1, 3 , 5* 7, 11, 13, 17, " 

90 ? "B. 40, 51, 62, 73, 84, 95, " 

100 ? "C. 1, 1, 2, 3, 5, 8, 13, 21, " 

110 ? "D* 3, 3, 5, 4, 4, 3, 5, 5, "!? 

120 ? "What sequence would you like" 

130 ? "to try? (Type a letter*)"! 

140 INPUT ANSS 

150 IF ANSS="A" THEN GOSUB 5000 
160 IF ANSS="B" THEN GOSUB 5100 
170 IF ANSS="C" THEN GOSUB 5200 
180 IF ANSS="D" THEN GOSUB 5300 
200 ? !? "Do you want to try another" 

210 ? "sequence? (Type Y or N)"! 

220 INPUT MORES 

230 IF MORES=" Y" THEN ? "::"!GOTO 70 
240 END 

5000 REM xxxxprine number sequence*** 

5005 REM **** *** 

5010 ? ">"!? !? IREM * clears screen * 

5020 ? "Type a nunber to finish this" 

5025 ? "sequence. You get three chances."!? 

5030 ? "1, 3, 5, 7, 11, 13, 17, " 

5040 FOR C0UNT=1 TO 3 

5050 ? ! ? "NUMBER"! * 

5060 INPUT NUM 

5070 IF NUM=19 THEN ? "That's cor rect ."! RETURN 
5080 ? "It's not "}NUM!"* These are prine nuMbers." 
5090 NEXT COUNT 
5095 RETURN 
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PUZZLE-PAGE 




105 



5100 
5 
5 
5 



c 110 



^120 




5125 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5195 

5200 

5205 

5210 

5220 

5225 

5230 

5240 

5250 

5260 



5270 
5280 
5290 
5295 
5300 
5305 
5310 
532 0 
5325 
5330 
5340 
5350 



5360 

5370 

5380 

5390 

5395 



REM ****sdd eleven sequence***** 

REM **** ***** 

? ">"♦? !? !REM * clears screen * 

? "Type a number to finish this" 

? "sequence* You get three chances."!? 

? "40, 51, 62, 73, 84, 95, " 

FOR COUNT=l TO 3 
? !? "NUMBER" ! 

INPUT NUM 

IF NUM= 106 THEN ? "That's cor rect ♦"! RETURN 
? "It's not " ! NUM J " ♦ " 

NEXT COUNT 
RETURN 

REM ****Fibonacci sequence****** 

REM **** ****** 

? ">"!? !? !REM * clears screen * 

? "Type a nunber to finish this" 

? "sequence. You get three chances*"!? 

? "1, 1, 2, 3, 5, 8, 13, 21, " 

FOR COUNT=l TO 3 
? ! ? "NUMBER"! 

INPUT NUM 

IF NUM=34 THEN ? "That's corr ect ."! RETURN 
? "It'S not " ! NUM ! " ♦ It's a Fibonacci," 
NEXT COUNT 
RETURN 

REM **nunber of letters in nuns* 

REM *** *** 

? "}"!? !? ! REM * clears screen * 

? "Type a nuMber to finish this" 

? "sequence. You get three chances."!? 

? "3, 3, 5, 4, 4, 3, 5, 5, 

FOR COUNT=l TO 3 
? ! ? "NUMBER"! 

INPUT NUM 

IF NUM=4 THEN ? "That's correct ." !RETURN 
? "It's not " ! NUM ! " . " 

NEXT COUNT 
RETURN 
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IF" * - THEir-J 
CAMPER C O F* Y 



10 


REM ExaMple of 


3 


conditional 




20 


? "T" ; REM 


* Clears screen * 




30 


?;? "Type 


in a 


nuMber ♦ " * 






4 0 


INPUT NUM 












50 


IF NUM>1 0 


THEN 


'p 

• 


"That ' s 


too 


big . " 


60 


IF NUM<10 


THEN 


*p 

• 


"That's 


too 


swall ♦ " 


70 


IF NUM=1 0 


THEN 


• 


"That ' s 


the 


nuMber I had 


in 


Mind * " ♦ GOTO 90 










80 


GOTO 30 












90 


END 













10 REM ** Coin Toss x* 

20 DIM R$ ( 1 ) 

30 ? "7"JREM Clears screen 

^0 ? "One person chooses heads* the" 

50 ? "other person chooses tails*' 1 ;? 

60 ? "Press return when you have decided."* 

70 INPUT R$J ? 

80 IF INT<2*<RND<1) ) XI THEN ? "The person 
who chose heads goes first. "tGOTO 100 
90 ? "The person who chose tails goes first." 
100 GOTO 100 






10 REiM * A Matter of taste * 

20 REM * Using strings in IF ♦♦THEN blocks * 

30 DIM ANS$ ( 3 > 

z|0 ? " T" J REM * Clears screen * 

50 ? "Do you like chocolate? (Type YES or NO) 
60 INPUT ANS* 

70 IF ANS$= " YES " THEN ? "You have good taste* 
GOTO 90 

80 ? "Your taste is questionable!" 

9 0 END 



1983* 

Tl^LF 1 



1 1 



n ♦ 
♦ 
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OR: / AND 



The use of AND 3 nd OR is confusing to so Me people* The 
activities th3t follow 3re the Mininun that should be done to 
insure understanding of these logic operators ♦ When given 
exanples of AND and OR used in programs, canpers should be 
able to explain how they work 4 Canpers should also know when 
it is appropriate to use AND and OR 4 A transparency and 
canper copies of the code to be typed in is available * 



Activity frl 



This simple program illustrates the use of 0R + Type it 
in and run it, trying different colors as input 4 

10 REIM * Use of OR and AND * 

2 o ? " l REM Clear screen 

30 DIM COLOR* (15) 

^0 ? "Type in your favorite color 4 Use" 

50 ? "all capital letters like this, RED*'^? 

60 INPUT COLOR* 

70 IF C0L0R* = ,, RED" OR COLOR* = " YELLOW" THEN 
? "That is one of ny favorites, too!"tG0T0 90 
80 ? "Your taste in colors is different 
than nine 4 " 

90 END 

Change the OR in line 70 to AND 4 Run the program again and 
try RED and then YELLOW when the program asks for input 4 
Finally, change the following lines in the program t 

30 DIM COLOR!* ( 15 ) , C0L0R2*(15) 

^0 ? "Type in two colors 4 Use" 

60 ? "What is the first color" | 

70 INPUT COLOR 1* 

80 ? "What is the second color" ; 

90 INPUT C0L0R2* 

100 IF COL OR 1*=" RED" AND COLOR 2*~ " YELLOW " THEN 
? "Those are ny favorite color s 4 " l GOTO 120 
110 ? "I'm not fond of those colors 4 " 

120 END 

Run it and try different color comb i nat i ons 4 Discuss the 
effect of AND in the program 4 
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O Ft / A M O' 
(CONTINUED) 



Activity #2 



A coMMon use of AND is to control looping by establishing a 
condition that will Make the progran exit the loop* Have canpers run 
the progran on the BASIC Utility Disk called "USINGAND" ♦ The program 
is printed below and on the page titled "USING AND"* Campers should 
list the program to the printer* If that is not possible, use the 
"USING AND" page* 

1* Ask canpers to find the answer to the question in the 
program (line 110)* 

2* Run the progran again, typing in the correct answer* 

Observe what happens to the values of "COUNT" and 
"CORRECT" when the correct answer is input* 

3* Try typing in the correct answer on the second chance and 
the third chance to see how the values of the variables 
used in the IF ♦ ♦ AND ♦ ♦ THEN change* 



^* Ask canpers to find the line that controls the loop 
that repeats inputing answers (line 150)* 



5* Discuss initialization of variables in line 30* 

6* A counter has not been discussed prior to this program* 
Talk about how COUNT is used in line 120* 



10 
2 0 
3 0 
^•0 

5 0 

6 0 
70 
3 0 
9 0 
100 
110 
12 0 
13 0 

no 

15 0 
160 
170 
130 

19 0 

20 0 



REM *** Using AND 
DIM AN Si (10), CORRECT* ( 1 ) 
C 0 R R E CT*="N" ♦ C 0 U N T = 0 

'P 






ii 1 1 ♦ o 

* ♦ r 



11*0 



1 1 



? "Who published 'On Computable" 

? "NuMbers' > one of the Most iMportsnt" 

? "papers in the foundations of" 

? "coMputer science? You get three" 

? "chances to give the right answer. 
INPUT ANS* 

IF ANS$="Tur ing" THEN CORRECT***" Y 
COUNT ~CC)UNT+ 1 
? "COUNT ® " J COUNT 
? "CORRECT = ."^CORRECT*:? 

IF r CCLUNT03 AND CORRECT*®" N" 

IF CORRECT*® "Y" THEN ? "Yes, 

? "This was a difficult question. The" 
? "answer can be found on page 79 of" 

? "the book, 'The Making of the Micro'. 
END 



THEN ? 
i t W 3 s 



"Try 
A 1 a n 



1 1 



4? 



again: "JJGOTQ 100 

Matheson T ur i ng ♦ " t GOTO 2 0 0 
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USING A. M E> 



10 REM *** Using AND *** 

20 DIM ANS* ( 1 0 ) , CORRECT* ( 1 ) 

3 0 CORRECT*="N" ‘.COIJNT = 0 

^ o ? "}":? 

50 ? "Who published 'On Conputable" 

60 ? "Nudbers' . one of the Most iMportant" 
70 ? "papers in the foundations of" 

80 ? "conputer science? You get three" 

90 ? "chances to give the right answer*";? 
LQ.0 INPUT ANS* 

■Li IF ANS*=="Tur ing" THEN CORRECT*=" Y" 

^20 COUNT -COUNT+l 



130 


« 


"COUNT = " 


♦ 

y 


140 


7 


"CORRECT == 




150 


IF r 


CO UNTO 3 


A 


160 


IF r 


CORRECT*— 


1 1 


170 


? 


"This was 


a 


18 0 


7 


"answer can 


190 


7 


"the book# 




20 0 


E N D 





II ♦ 



J CORRECT*:? 

ND CORRECT*="N" THEN ? "Try 
Y" THEN ? "Yes, it was Alan 
difficult question* The" 
found on page, 79 of" 



be 



1 1 



1 1 



; :ggtg 100 



a g a i n i 

Matheson Tur ing ♦"!( 



* 
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(CONTINUED) 



Activity fr3 



This eKSMple shows canpers how to use OR to help with 
the problem of Matching strings exactly when asking a user 
for input in a progrsn* Type it in and run i t * 



10 REIM Use of OR to solve one input problen 
20 ? M T"tREM Clears screen 
30 DIM ANS$ ( 3 > 

^0 ? "Is your favorite car a Porsche"? 

50 INPUT A N S $ 

60 IF ANS*="YES" OR ANS$="Y" OR ANS*="yes" 

OR ANS$="y" OR ANS*~"Yes" THEN ? "What class!": 
GOTO 80 

70 ? "It isn't* I'm aMaxed!" 

80 END 



ReMind caMpers that they cannot use ANS$ : ="YES" or "Y" or 
"yes"* This is a typical error Made by beginning programmers* 
ANS$ Must be used with each conparison as illustrated in line 
60 * 
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o Ft / a> m c> 

CAMPER C O F" Y 



10 REM * Use of OR and AND x 
20 ? "f" * REM Clear screen 
30 DIM COLORS (15) 

^0 ? "Type in your favorite color* Use" 

50 ? "all capital letters like this* RED.";? 
60 INRUT COLOR* 

70 IF COLOR$="RED" OR COL_OR*="YELLOW" THEN 
? "That is one of My favorites, too! "{GOTO 90 
80 ? "Your taste in colors is different 
than Mine." 

9 0 END 



30 DIM COLOR1* ( 15 ) , C0L0R2HC15) 

^0 ? "Type in two colors. Use" 

60 ? "What is the first color"; 

70 INPUT C0L0R1* 

80 ? "What is the second color"; 

90 INPUT C0L0R2* 

100 IF COLOR 1*=" RED" AND COLOR2$=" YELLOW" THEN 
? "Those are ny favorite color s ♦"{ GOTO 120 
110 ? "I'm not fond of those colors." 

120 END 



4 ? 



10 REIM Use of OR to solve one input problem 
20 ? "7":REh Clears screen 
30 DIM ANS$(3> 

^0 ? "Is your favorite car a Porsche"; 

50 INPUT ANS* 

60 IF ANS$ = ,, YES" OR ANS*= n Y" OR ANS**= n yes H 
OR ANS$="y" OR ANS$ = ,, Yes" THEN ? "What class!": 
GOTO 80 

70 ? "It isn't* I'm anazed!" 

8 0 END 
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USING A. JOYSTICK 



The purpose of this lesson end the next one is to 
introduce the use of joysticks and paddles ♦ It is included 
in this nodule because knowledge of conditionals can be 
applied in a way that is fun and interesting, without 
requiring lengthy programming assignments* Discuss the 
following before you begin the activities in this lesson* 



1* The STICK function reads the joystick in ATARI 
EiASIC* It takes the form STICK(O), where 0 is the port used 
by the joystick* There are four ports on the Atari 800* The 
numbers used by the STICK function are 0, 1, 2, and 3* 

2* The computer translates the joystick positions as 
certain numbers* When you want to program the computer to 
use the joystick, you use IF**THEIN to do something if a 
particular number is found* 

3* The position numbers are shown below* 



f or war d 
14 



up , lef t 


up , r i ght 


10 


6 


resting 




left 11 15 


7 right 


9 


cr 

vJ 


down , left 


down , r i ght 



13 

back 



4 ♦ The STRIG function reads the joystick trigger 
button* It returns a value of 0 if the trigger is being 
P ress e d , 1 if it i s not* 

I. n t h i s 1 esson ♦ you will need a joystick f o r each computer ♦ 

A transparency and worksheets are available for the code used 
i. n the 1 e s s o n * 
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USING 



A, JOYSTICK 
(CONTINUED) 



Act i v i ty ft 1 

Type in and run the following to see how the Joystick- 
values are read* 



10 


REM 


* Practice 


with the Joystick 


20 


NUM 


=STICK ( 0 ) 






30 


IP 


NUM=15 THEN 


? 


"RESTING" 


40 


IP 


NUM=14 THEN 


7 


"GOING FORWARD" 


5 0 


IP 


NUM=13 THEN 


7 


"GOING BACKWARD 


60 


IF 


NUM=1 1 THEN 


• 


"LEFT" 


70 


IP 


NLJM=7 THEN ? 




"RIGHT" 


SO 


IF 


NUM=10 THEN 


7 


"UP & LEFT" 


90 


IP 


NUM=6 THEN ? 




"UP & RIGHT" 


100 


IF 


NUM-9 THEN 


7 


"DOWN & LEFT" 


110 


IP 


NUM=5 THEN 


7 


"DOWN & RIGHT" 


120 


? 


"Joystick = 


1 1 


* NUM J ? 


130 


FOR WAIT = 1 TO 


2 


50 J NEXT WAIT 



140 GOTO 20 

Activity £2 



Use this short prograM to see the value change when you 
press and release the joystick button* STRIG stands for 
STICK TRIGger ♦ STRIG returns the value of 1 until the button 
is pressed* and then the value returned is zero. 



10 NUM==STRIG< 0 ) 

20 PRINT NUM 
30 GOTO 10 

Activity ft 3 

Try this pr-ograM for random sound using the Joystick* 

10 REM * Joystick and SOUND 
20 PITCH=STICK< 0 ) 

30 SOUND 0 ,PITCH*10 f 10 , 10 
4 0 GOTO 10 
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USING JOY STICK 



Activity 

Run the program on the BASIC Utility Disk called 
"JSTICK"* The copy of the program below is for the 
instructor's use* Campers should list the program to the 
printer for their copy* Be sure that campers press the 
Joystick button to see the square change colors* At some 
point, they will get a cursor out of range error. Be sure to 
discuss why that happens when you discuss the program. 



10 REM * Experimenting with a Joystick * 
15 GRAPHICS 3+16 



20 X=39JY=19:C=1 

30 xol.d=x:yold=y 



^0 STK*STICK< 0 ) JIF STKOIS 
50 COLOR 0 J PLOT XOLD , YOLD 
60 COLOR C i PLOT X,Y 
70 IF r STRIG ( 0 ) = 0 THEN GOSLJB 
80 GOTO 30 



THEN GOSUE 



t 



300 




20 0 IF ( STI<=5 ) OR (STK-6) OR (STK=7) THEN X = X + 1 
210 IF ( STK=9 ) OR <STK=10> OR STK=CL1) THEN X=X-1 
220 IF ( STK=1 0 ) OR (STK=6) OR <STK«14> THEN Y=Y-1 
230 IF < STK=9 ) OR (STK=13) OR (STK=5) THEN Y=Y + :L 
24 0 RETURN 



300 C=C+1 

310 IF C=4 THEN C=1 
320 RETURN 



After campers have run the program and listed it, step 

through each line and ask theM to explain what is happening* 

* 

Activity 

Just for fun#. Fv'UN the progrsn on the BASIC Utility Disk 
called “ JOYAFiFiQW*' ♦ It demonstrates use of the joystick and 
controllers to control an animated arrow* The program is 
available on the page titled " JOYAF’\FvOW M ♦ 



♦ f 
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JOYARROW 



10 reem controlled arrow 

20 GRAPHICS 7 

30 PRINT " JOYSTCK IN PORT 1 t CONTROLS DIRECTION. 

4 0 PRINT " TRIGGER BUTTON CHANGES HUE. 

50 PRINT "PADDLE IN PORT 2J CONTROLS LUMINANCE. 

60 x=is: y=40 :hue=o :lum=i4 

70 SETCOLOR 0,HUE,LUM 

80 COLOR ltGOSUB 300 

90 COLOR OtGOSUB 300 

100 IF STRIG < 0 ) =0 THEN HUE=HUE+1 

110 IF HUE>15 THEN HUE=0 

120 LUM=INT ( PADDLE ( 2 ) /16 ) 

130 IF STICK ( 0 ) =14 THEN Y=Y-1 

140 IF STICK ( 0 ) =6 THEN X=X+1JY=Y-1 

150 IF STICK < 0 ) =7 THEN X=X+1 

160 IF STICK ( 0 ) =5 THEN X=X+i:Y=Y+l 

170 IF STICK < 0 ) =13 THEN Y = Y+1 

ISO IF STICK ( 0 ) =9 THEN X=X-1JY=Y+1 

190 IF STICK ( 0 ) = 1 1 THEN X=X-1 

200 IF STICK ( 0 >=10 THEN X=X-1JY=Y-1 

210 GOTO 70 

220 STOP 

30 0 PLOT X t Y 

310 DRAWTO X-15,Y 

320 DRAWTO X-15,Y+2 

330 DRAWTO X,Y+2 



I i ♦ 

* 

II ♦ 

t 

ll ♦ 



34 0 F : *LOT X+2,Y+1 
350 DRAWTO X-6 f Y-3 
360 PLOT X+2,Y+1 
370 DRAWTO X~6,Y+5 



3S0 


RETURN 






390 


END 








40 0 


REM 


X 






410 


REM 


X 






420 


REM 


X 


• 




430 


REM 


X 




* 


440 


REM 


X 






450 


R EE M 


X 


JOYSTICK 


PADDLE 


46 0 


REM 


X 






470 


REM 


X 






480 


REM 


X 


14 




49 0 


R EE M 


X 






500 


REM 


X 


10 6 




510 


R EE M 


X 






52 0 


-REM 


* 11 


15 7 


228 


530 


REEM 


X 






540 


REM 


X 


9 5 




550 


REM 


X 






56 0 


R EE M 


X 


13 





1 
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PADDLE COM TR OLLERS 



This is an introduction to' the use of paddles* PrograMMing with 
paddles is sinilar to that of joysticks* except that the computer 
interprets positions froM 1 to 228* Atari E*.ASIC reads the paddle with 
the PADDLE function* The paddle button uses PTRIG and works the sane 
way the joystick function works* The activities in this lesson are 
intended to allow the canper to experinent with the paddle functions* 

Y o u will n eed paddles for each comp uter i n o rder to do this lesson ♦ 

Activity ftl 

Type in the following short progran and run it* 

10 REiM * Using a paddle * 

20 PITCH=PADDLE< 0 ) 

30 PRINT PITCH 
^0 SOUND 0 * PITCH* 10 * 10 
50 GOTO 10 

Ask canper s to describe the relationship of the nuneric values that 
appear on the screen to the pitch of the sound they hear* 

Activity #2 

Now try this progr an* When it is run* the button should be 
pushed to control the volune of the sound* 

10 REEM acExper i Meriting with paddles and sound** 

20 U0L= 1 0 

30 SOUND 0 * PADDLE ( 0 ) * 10 * VOL 

10 IF PTRIG ( 0 ) =0 THEN GOSUB 100 

50 FOR DELAY=1 TO ^0 J NEXT DELAY 

60 GOTO 30 

100 V0L=V0L+1 

110 IF U0L=16 THEN UOL=0 

120 RETURN 

Step through the progr an with the canpers and then add the following 
lines to further illustrate what is happening* * 

25 PRINT PADDLE ( 0 ) 

105 PRINT * VOL 

Run the progr an to see the change in nuneric values as the paddle is 
changed ♦ 

A ctivity #3 

Challenge canpers to change the progr ans in the first two 
activities* so that they can use two paddles at once* 
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JOYSTICKS AND CONTROLLERS 

CAMPER COPY 



10 NUM=STRIG < 0 ) 
20 PRINT NUM 
30 GOTO 10 



10 REM * Joystick and SOUND 
20 PITCH=STICK< 0 ) 

30 SOUND 0 ,PITCH*10 , 10 , 10 
^0 GOTO 10 



10 REM * Using a p3ddle * 
20 PITCH=PADDLE< 0 ) 

30 PRINT PITCH 
q 0 SOUND 0 , PITCH, 10 , 10 
50 GOTO 10 



10 REM *E::per inent ing with paddles and sound** 
20 VOL=l 0 

30 SOUND 0 t PADDLE ( 0 ) , 1 0 * VOL * 

10 IF PTRIG ( 0 ) = 0 THEN GOSUE3 10 0 

50 FOR DELAY=1 TO 40JNEXT DELAY 

60 GOTO 30 

100 V0L„=V0L+1 

110 IF V0L=16 THEN VOL=0 

120 RETURN 



Add these linest 

25 PF<INT PADDLE ( 0 ) 
105 PFvINT f K > OL 
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JOYSTICKS AND CONTROLLERS 

CAMPER C Q F“ V 



10 NUM=STRIG ( 0 ) 
20 PRINT NUM 
30 GOTO 10 



10 REM * Joystick and SOUND 
20 PITCH=STICK < 0 ) 

30 SOUND 0 ,PITCH*10 , 10 , 10 
40 GOTO 10 



10 REEM * Using a paddle * 
20 PITCH=PADDLE ( 0 ) 

30 PRINT PITCH 
40 SOUND 0, PITCH ,10, 10 
50 GOTO 10 



10 REEM *E::per inenting with paddles and sound.* 
20 UOL.=l 0 

30 SOUND 0 f PADDLE ( 0 ) , 1 0 , VOL * 

40 IF PTRIG ( 0 ) =0 THEN GOSUB 100 

50 FOR DELAY=1 TO 405NEXT DELAY 

60 GOTO 30 

100 UOL = UQL„+l 

110 IF UOL= 1 6 THEN UOL=0 

120 RETURN 



Add these lines* 

25 PRINT PADDLE ( 0 ) 
105 PRINT ,VOL 
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MODULE *7 - INDIVIDUAL PROJECT 



OBJECTIVES 

Be able to define "Utility" and state purposes of 
utility programs in general* 

Apply program planning techniques learned 
in Module 5 

Learn to use the following utilities* 

PAINT 

PLAYER MAKER 
ANIMATE 

Produce a "coMputer show" that tells a story and uses 
a painting, players, 3rid animation* 



MATERIALS REQUIRED 

BASIC Cartridge 
Camper's Personal Diskette 
GENERAL UTILITY DISKETTE 
PAINT 

PLAYER MAKER 

"Creating a CoMputer Show" DocuMentation 
"ANIMATION" DocuMentation 



REFERENCES 

You should read all of the docuMeritation accortp any ing 
the utility packages before you teach the lessons 
in this nodule* 



CONTENT 

Lesson 1^ - Individual Project Introduction 
Pages 1-2 

% 

An introduction for the instructor* Read carefully 
before you begin teaching* 
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Lesson 2 - Creating a Player 

Page 3 

Mater ials 

PLAYER MAKER 

CaMper's Personal Diskette 

PLAYER MAKER is used to create a player 
(or character) for the story. The player 
will be used in Lesson 4 ♦ 



Lesson 3 - Using the GENERAL UTILITY DISKETTE 
Pages ^-5 
Mater ials 

GENERAL UTILITY DISKETTE 
Canper's Personal Diskette 

Campers learn how to use the programs on the 
GENERAL UTILITY DISKETTE to help with the 
production of their "computer show." 



Lesson 3. - Animate 

Page 6 ' 

Materials 

GENERAL UTILITY DISKETTE: ANIMATE 
Camper's Personal Diskette 
Joystick for every computer 

Animation is created for each player. The 
programming is done to complete the show. 



Lesson 5 - Individual Project 
Pages 7-8 

Campers use wh3t they have learned in the 
previous lessons to produce their own show. 
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In this Module, caMpers will learn to produce s 
"comp u t e r s h ow" usi n g F : ' A I N T , P L. A Y E F'< M A F( E". F'< , M U S I C P L A Y E Fv 
(stored as AUTORUN ♦ SYS on the GENERAL UTILITY DISKETTE) , and 
ANIMATE* The first prograM they do will allow few choices as 
to what is included* It is designed to serve as a Model for 
the prograM they produce on their own in the last lesson of 
the Module* The Model will include a picture, figures that 
Move on the picture, and Music that plays m che Background* 
To successfully coMplete the activities, caMpers Must have 
soMe knowledge of BASIC, and they Must know how to use the 
Atari coMputer systeM* 



Each lesson covers a different part of the process used 
to coMbine the utilities* If the lessons are done in order 
and proper instruction is given, canpers should be able to 
use the utilities to create their own show with very little 
assistance froM an instructor* Thus, the individual caMper 
projects in the fourth lesson could be used to provide 
activities for caMpers who do not need to be part of a lesson 
and have nothing structured to do while the rest of the group 
is receiving instruction on other parts of the BASIC 
curriculum* Because the projects are very tiMe consuMing, 
caMpers should be warned that they May have to do some; work 
outside of class in order to finish. 



It will probably be the case that two canpers will have 
to work together in doing the Model prograM. Use one 
Personal Diskette to store the program. If the second C3Mper 
wants a copy of the finished product on his or her diskette, 
a TA or the teacher should copy the necessary files. 

In order to Make the Module More than Merely a "canned" 
activity, you should cover the following Material at sone 
tiMe during the lessons* 



1 



♦ 



Discuss the 
packages in 
uti 1 i ties * 



definition and purposes of utility 
general* As you use each of the 
talk about More specific uses for 



each one* 



2* Use this opportunity to talk about the 

iMPortance of planning a conputer prograM before 
you begin to work on the conputer* Encourage 
canpers to outline their final project before 
they begin to create the picture* players* etc* 



3 



♦ 



If' the Subroutines Module has been comp le ted, 
discuss the use of subroutines in it* 
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^ ♦ Introduce (or review ) t 

SAUE'D J " 

LOAD " D 5 " 

L.IST"D: " 

ENTER'D: " 

EMphasize the need for using descriptive file 
nanes when storing programs or subroutines* 

Talk about legal nanes and what happens if you 
accidentally use a nawe that has already been 
used to store a prograw* (The first prograM is 
overwr it ten ♦ ) 

5* Explain what is happening when DOS is used in 
the procedure* For example* do More than 
just have caMpers type in "DOS" and then "0"* 
Talk about what happens when each is typed* 
CaMpers should also know how to look at the 
directory on the GENERAL UTILITY DISKETTE in 
order to use paintings and Music othfer than the 
ones they use in the directed lessons* 

6* It will be inportant that you Make very clear 

which parts of the prograM can be created by the 
caMpers and which Must be followed exactly as 
they are written* A single deviation froM the 
directions for putting the various parts of the 
prograM together could have disastrous effects* 



E3e sure you have read the docuMentat ion that accoMpanies 
each utility package before you teach the lesson using the 
ut i lity ♦ 



1983. 
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Canpers will use PLAYER MAKER to create a player or 
character for their story ♦ If you have not read the PLAYER 
MAKER documentation * do so before you begin the lesson* The 
diskette and documentation are stored in sets of six in the 
1 ibr ary ♦ 



I* Do a demonstration of how to make a player using 
PLAYER MAKER* Show how to use the menu#, move around the 
system* and create a player* Complete a player and save it 
on a diskette* The player will be used in me animation 
lesson* Talk about how to make pictures using squares* Some 
campers m3y need to plan their players before they make them* 



II* Instruct campers step by step in making a player* 

If there are two people at a computer* the show that is 
created will be cooperatively produced* One person should do 
Player 0 and the other person should do Player 1* Be sure 
that the BASIC cartridge is in place* Tell campers toX 



1* Insert the PLAYER MAKER diskette and load 

the PLAYER MAKER program* Once the program is 
loaded* remove the diskette and insert 
one camper's Personal Diskette into the 
disk drive* so that the objects created can 
be saved* 

2* Design the players* Some campers may need 

suggestions for figures to design* It is important 
that the figures remain simple* If they do not* 
the activity will take too much time* Some letters 
of the alphabet are easy* A smiling or frowning 
face has appeal and is not too difficult* Figures 
with rounded edges are more difficult to make 
and may take too much time for this activity* 



3* Use the following procedure to save the players* 



a ♦ 
h ♦ 
c ♦ 
d * 
e ♦ 



1 1 



Type "F ♦ 

Move the cursor to SAVE PLAYERS AND END PROGRAM* 
Press the joystick button or the space bar* 

Type "S" to save a subroutine* 

Use the filename* "PLAYER"* Caution 
campers that if "PLAYER" is not used* 
they will have trouble following directions 
later on* 
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T h e s t e p s f o r c o p y i n 9 files fron t h e G El N EE R A L. UTIL I T Y 

DISKEETTE are listed below* If canpers are not fa m i 1 i 3 r with 

using DOS , this would be an appropriate tine to show how to 

use the "E)ISK DIRECTORY", "RUN CARTIRDGE", AND "DUF : 'L.ICATE 

F r IL„EE" iteMS. You Might also want to show how to 'list the 

directory to the printer using the disk directory. Note that 

the subroutines that are pictures have the extension ".PIC" 

* 

and the Music subroutines have the extension ".HUS". Have 
caMpers do one step at a tine as you instruct then. Eie sure 
that the 1 e 1 1 e r "0" is typed when "0" is given in the 
directions. Caution caMpers that it is very important that 



the right disk be in 
done ♦ 



the disk drive when a procedure is being 



1. Insert the GENERAL UTILITY DISKETTE into the disk 
drive and type: 

DOS (RETURN) 

0 (RETURN) 

WINTER. PIC (RETURN) 

(RETURN) 

Tell canpers that they are now copying a file containing a 
picture that was done using PAINT. When they do their own 
show, they nay choose another picture froM the GEENEEF5AL 
UTILITY DISE(ETTE or they May create their own picture using 
PAINT. In either C 3 se, instead of typing WINTER .PIC, they 
will substitute the naMe of the picture they want to use in 
the prograM in this position. There are More steps needed to 
use a caMper created painting. See the CREATING A COMPUTER 
SHOW docuMentat ion (the page called "F0F'< THEE MORE 
EEXF : ‘EF'<IENCED" ) for instructions. 

2. Insert the Personal Diskette into the drive and 
press (RETURN). 

. 3. Insert the GENERAL UTILITY DISKETTE and type: 

0 • (RETURN) 

FUGUE. MUS (RETURN) 

(RETURN) 

There are other Music files available on the GEENEEF^AL. UTILITY 
DISF(ETTE. If canpers want to use a different song, they 
should choose fron one of these files. Writing songs is 
extreMely tine consuMing 3nd is not an appropriate activity 
at this tine* 



Copyright Atari, Inc., 



1933. 



All r i g h t s reserved. 



G IE', a-st EZ FC lA L 



U X X L_ X. X ■'ll"' 
< CONTINUED ) 



i:> x s a< e: x x se; 



*1, Insert the Personal Diskette and press 
This step copies the Music- file on the caMper's 



(return) * 

d iskette ♦ 



5. Insert the GENERAL UTILITY DISKETTE and type! 

0 (RETURN) 

AUTORUN ♦ SYS (RETURN) 

(RETURN) 

6* Insert the Personal Diskette and press (RETURN)* 
This copies the subroutine that enables the Music to play* 

7* Insert the GENERAL UTILITY DISKETTE * type B * and 
press RETURN to set back to BASIC* 



8* Be sure the GENERAL UTILITY DISKETTE is in the disk 
drive and "RECADY" is on the screen* Type! 

NEW 

ENTER "D: ANIMATE" (RETURN) 

ENTER "D: PAINT" (RETURN) 

ENTER "Dt MUSIC" (RETURN) 

This step enters the subroutines necessary to use the player 
an i Mat ion* painting* and Music* 

* 

9* Insert the Personal Diskette and type the following 
EXACTLY AS IT IS WRITTEN l 

ENTER "D ♦ PLAYER" 

20 F r ILE$="WINTER*PIC" JGOSUB PAINT 
30 GOSUB TEACH 
50 END 

SAUE " D J SHOW" 



This enters the subroutine created 
in the first lesson* That subroutine 



whe n 



PLAYER MAKER 
is used in the 



was used 



subroutine* "TEACH" in 
the subroutine in line 



1 ine 
20 * 



30* The painting is displayed by 
If another painting is used* the 



f ilenaMe on this line should be changed* Everything Must be 
saved at this point* 



10* Tell caMpers th3t they are now ready to teach 
aniMation to the players that were created in the lesson 
called "MAKING A PLAYER". That activity will be done in the 
next lesson* 
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"ANIMATE" is 3 BASIC subroutine* that is stored on the* 
GEENEE RAL_ UTILITY DISKETTE. If you have not read the 
Animation Subroutine DcjcuMentat ion , you should do so before 
beginning this lesson. CaMpe*rs Must have created a figure 
using PLAYER MAKEER in order to do the activities. 



A joystick is required for each comp u ter. 



1. Do a deMonstr ation of how to use TEACH and PRACTICE. 
Be sure that caMpers understand that TEACH deterwines the 
path and PRACTICE allows you to set the speed of MoveMent. 
They should also be aware that they cannot change the path of 
a player after it has been "taught", but they can change the 
tiMing of previously taught players using PRACTICE. 

2. After you have done the demonstr at ion , have caMpers 
do their animation. Each camper should teach the player he 
or she created. The program called "SHOW" must be run in 
order to begin. Type RUN "D.SHOW". 

3. When campers have finished teaching the players, 
they should complete the following steps! 

Press (SYSTEM RESET) 

LOAD "D J SHOW" 

10 FILEH>=" FUGUE . MUS" t GOSUE: MUSIC 
30 GOSUB PLAY 
^0 GOSUB ANIMATE 
SAVE "D J SHOW" 

H . To see the completed show, caMpers Must f i r s t turn 
t he comp u ter off and then turn it back on and type RUN 
"D ♦ SHOW" . 



5. Be sure campers have saved their program before they 
turn their computer off. 



* * 
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CaMpers should have learned how to do a computer show in 
the first lessons of the Module* This lesson gives teaching 
tips for helping canpers to create a show of their own* 

1. Encourage planning before the projects are begun* A 
suggested sequences is to select or create a picture* choose 
the Music to play in the background* and then create the 
player to fit the setting and the Music* 



2 * 



Canpers May choose to use the subroutines available 
on the GENEiRAL UTILITY DISKETTE to provide the picture and 
Music for their show* They should use the DOS directory to 
see what is on the diskette* The pictures have the 
extension* *F'IC and the Music has the extension* *MUS* 



2* If caMpers want to see the pictures or hear the 
Music before they decide what to use in their prograMS* they 
should follow to instructions below* Ei'.e sure the GEiNEiF^AL 
UTILITY DISKETTE is in the disk drive* 

TO SEE A F'ICTUF?E TYPE: 



ENTER "Dt PAINT" 

10 FILE$= " 

20 GOSUB PAINT 
30 GOTO 30 
RUN 



Put the file nane of the picture to be viewed 
in the blank in line 10, 



TO LISTEN TO MUSIC: 



First turn the conputer off and back on* 
Then type: 

ENTER "D:MUSIC" 

io file$=" " :gosub MUSIC 

20 GOSUB PLAY 
30 GOTO 30 
RUN 

Put the file nafie of the Music to be played 
in the blank in line 10, 
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(CONTINUED) 



3. If csMpers do a painting 
need to conplete steps 1 and 2 of 
called "F r OR THE MQF\E EXPERIENCED" 
SHOW" docuMent* 



of their own# they will 
the directions on the page 
in the "CREATING A COMPUTER 



^F* Projects that use More than one painting or several 
anination sequences will need closer supervision than ones 
that follow the Model done in the first three lessons# Be 
sure that csMpers are aware that there can be comp 1 icat ions 
when they begin to add things to their prograMS* It would be 
best if they checked with a teacher or a TA before beginning 
any project they have planned* 

5* ReMind caMpers that it takes quite a bit of tine to 
coMplete a project* If they start close to the end of their 
stay at camp# they should be careful to plan a show that they 
are able to coMplete in the tine they have left* 
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CREATING A COMPUTER SHOW 



The following materials are needed for you to create a dramatic computer 
show. 



To create Pictures: 

PAINT software (also, PAINT data diskette for saving pictures). 
General Utility Diskette: PAINT. CPY, PAINT 



To create Music: 

Music Composer (or diskette with music data files). 

General Utility Diskette: MUSIC, AUTORUN. SYS (from MUSIC PLAYER) 



To create Animation: 

PLAYER MAKER 

General Utility Diskette: ANIMATE 



Other : 

SCREEN MAKER 

Personal Data Diskette — This is your own diskette which will be used 
to accumulate all the necessary data and programs. 



CREATING A COMPUTER SHOW 



The following instructions provide a good starting point for you to 
learn to create a computer show. Many of the options available to you can 
be explored later, after you have had a chance to get acquainted with the 
more straightforward procedure below. 

1. The first step is to- create some figures or objects that you will 
later move around (animate) on top of a painting. Insert a BASIC 
cartridge and load the PLAYER MAKER program. Once the program is 
loaded, remove the diskette and insert your own Personal Diskette into 
the disk drive in order to save the objects you created using PLAYER 
MAKER. Refer to the PLAYER MAKER documentation pages 1 through 6 
only. When you finish designing your players, (1) type "F", (2) move 
the cursor to SAVE PLAYERS AND END PROGRAM, (3) press the joystick 
button, (4) type "S" to save a subroutine, and (5) provide the 
filename PLAYER. 



2. Now you must copy some files from the GENERAL UTILITY DISKETTE to your 
own Personal Diskette. Insert the GENERAL UTILITY DISKETTE into the 
disk drive and type the following: 

DOS (RETURN) 

Press the letter "0” and (RETURN) 

WINTER .PIC ( RETURN ) 

(RETURN) 

Now insert your own Personal Diskette into the drive and press 
(RETURN) . 

Then switch diskettes again so that the GENERAL UTILITY DISKETTE is in 
the disk drive. 

Press the letter "0" and (RETURN) 

Type : FUGUE .MUS ( RETURN ) 

(RETURN) 

Insert your Personal Diskette and press (RETURN). 

Switch back to the GENERAL UTILITY DISKETTE. 

Press the letter "0” and (RETURN) 

Type: AUTORUN. SYS (RETURN) 

(RETURN) 

Insert your Personal Diskette and press (RETURN). 

Switch back to the GENERAL UTILITY DISKETTE. 

Press the letter "B" and (RETURN) to get back to BASIC. 



3. Now you must enter some programs into computer memory. Type the 
following (with the GENERAL UTILITY DISKETTE in the disk drive and 
"READY” on your screen) : 

NEW 

ENTER "D:ANIMATE" (RETURN - wait for disk drive to stop) 

ENTER "D:PAINT" (RETURN - wait for disk drive to stop) 

ENTER ”D:MUSIC" (RETURN - wait for disk drive to stop) 

Now insert your own Personal Diskette into the disk drive and type the 
following : 

ENTER M D : PLAYER" (RETURN - wait for disk drive to stop) 

20 FILE$="WINTER. PIC" :G0SUB PAINT (RETURN) 

40 GO SUB TEACH (RETURN) 

50 END (RETURN) 

SAVE "D:SH0W" (RETURN) 



4. Now you are ready to teach animation to the players you created. See 
the "Animation Subroutine Documentation" and when ready, type: RUN. 

When you finish teaching your players, go on to step 5. 



5. Now you can complete your entire computer show. Do the following: 

Press (SYSTEM RESET). 

LOAD "D :SH0W" (RETURN) 

10 F ILE$ = "FUGUE .MU S " :G0SUB MUSIC (RETURN) 

30 GO SUB PLAY (RETURN) 

40 G0SUB ANIMATE (RETURN) 

SAVE "D :SH0W" (RETURN) 



6. To see your completed show, first turn the computer off and then turn 
it back on. Then type: 



RUN 



"D:SH0W 



(RETURN) 



FOR THE MORE EXPERIENCED 



1. Create one or more paintings using the PAINT software. Save your 
paintings to files on a PAINT Data Diskette — you will probably find 
such a diskette in the vicinity of the PAINT program. 

2. Load and run the program called PAINT. CPY from the General Utility 
Diskette. This will copy the paintings you created from the PAINT 
Data Diskette to your own Personal Diskette. 

3. Use the PLAYER MAKER program to create figures that you will later 
move about on your pictures. Save the "player subroutines" you create 
to your Personal Diskette. Use the filename PLAYER. 

4. If you are a little more experienced, and you want to have text on 
your screen combined with your paintings, then use SCREEN MAKER to 
design a screen layout. Use GRAPHICS 7 as the background mode and 
then put text modes (GRAPHICS 0, T, or 2) where you want them. 3e 
sure you leave at least one scan line of GRAPHICS 7 at the very top of 
your screen. Save your screen subroutine to your Personal Diskette in 
a file called SCREEN. 

5. Use the MUSIC CCMPOSER cartridge to create the music you would like in 
your show and save this on your Personal Diskette. Or, if you like, 
copy music routines using DOS from the General Utility Diskette to 
your Personal Diskette. 



Your Personal Diskette should now include the following files: 



PAINT data files: 
Player subroutine: 
Screen subroutine: 
Music data: 



filename . PIC 
PLAYER 
SCREEN. SRC 
filename .MUS 



Use DOS (by inserting the General Utility Diskette into disk drive 1 
and typing DOS) to copy the AUTORUN. SYS file to your Personal Diskette. 

Now insert the General Utility Diskette into your drive and type the 
following : 

NEW 

ENTER "D: PAINT" 

ENTER M D: ANIMATE: 

ENTER "D :MUSIC : 

Insert your Personal Diskette into the disk drive and type the 
following : 

ENTER "D : PLAYER” 

ENTER "D: SCREEN. SRC" (if you used SCREEN MAKER) 

SAVE "D :SHOW" 



The next step is to teach your players their animation sequence. When 
teaching the players, do not use music — only put up your background 
painting by typing the following: 

10 FILE$=" filename . PIC" :G0SUB PAINT 
20 PATH=1 : GO SUB TEACH 

And, if you have more than one animation sequence... 

30 FILE$=” filename. PIC" :G0SUB PAINT (if you have another painting) 

40 PATH=2 : GO SUB TEACH 

When you have finished teaching your players, type the following: 



LOAD "D :SHOW" 



10 FILE&=" filename .MUS" :GOSUB MUSIC 

(This loads your music data. Any time you want to load a 
different tune, use this same statement with a different 
filename. ) 

20 WIND0W=2:G0SUB MYSCREEN 
30 PRINT #6; "..." 

(Use this only if you used SCREEN MAKER.) 

40 FILE$=" filename . PIC" :G0SU3 PAINT 

(This loads your painting. Any time you want to load a 
different picture, use this same statement with a different 
filename. ) 

50 GOSUB PLAY 

(This starts your tune from the beginning. GOSUB HALT will 
stop it and GOSUB RESUME will restart it from where it 
stopped . ) 

60 PATH= 1 : GOSUB ANIMATE 
70 ... 

(You can continue with different pictures, different names, 
and different animation sequences by repeating the same 
processes as used above.) 

When you have finished your program, be sure to save it by typing 
SAVE "D :SH0W" 



Before your program can play music, you must turn your computer off and 
then back on so that the AUTORUN. SYS file gets loaded into memory. Then 
type: RUN "D:SH0W". 
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NEAT 




006 


CLOWN 




006 


CUBE 




008 


BOX 




005 


COLOR 




004 


CLOWN 


DAT 


024 


SOUNDS 




007 


PRINTS 




007 


DOS 


SYS 


03? 


DUP 


SYS 


042 


ANARROW 




005 


TUNE 




011 


CHOMP, 




012 


MSHUT 


GR 


003 


MOPEN 


GR 


003 


BOAT 


GR 


003 


TREE 


GR 


003 


ROCKET 


GR 


003 


CHMAIN 




003 


JOYSTK1 




004 


JSTICK 




005 


USINGAND 


006 


SHIP 




016 


SUN 


GR 


005 


INTRO 


TXT 


003 


LEAVING 


TXT 


003 


BEACH 


TXT 


004 


STORM 


TXT 


002 


PHONHOMETXT 


004 


ENDROPE 


TXT 


003 


SUNSHINETXT 


002 


CONTINUETXT 


003 


VACATION 


055 


FORTUNE 




005 


PASSWORD 


004 


WHOAMI 




023 


SOLJNDARY 




012 


NUMPLJZL 




018 


JOYARROW 




011 


ARTSHOW 




Oil 
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NEAT 




006 


CLOWN 




006 


CUBE 




008 


BOX 




005 


COLOR 




004 


CLOWN 


DAT 


024 


SOUNDS 




007 


PRINTS 




007 


DOS 


SYS 


039 


DUP 


SYS 


042 


ANARROW 




005 


TUNE 




Oil 


CHOMP 




012 


MSHUT 


GR 


003 


MOPEN 


GR 


003 


BOAT 


GR 


003 


TREE 


GR 


003 


ROCKET 


GR 


003 


CHMAIN 




003 


JOYSTK1 




004 


JSTICK 




005 


USINGAND 




006 


SHIP 




016 


SUN 


GR 


005 


INTRO 


TXT 


003 


LEADING 


TXT 


003 


BEACH 


TXT 


004 


STORM 


TXT 


002 


PHONHOMETXT 


004 


ENDROPE 


TXT 


003 


SUNSHINETXT 


002 


CONTINUETXT 


003 


VACATION 




055 


FORTUNE 




005 


PASSWORD 




004 


WHOAMI 




023 


SOUNDARY 




012 


NUMPUZL 




018 


JOYARROW 




011 


ARTSHOW 




Oil 



314 FREE SECTORS 
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ART SHOW 



100 REM * ART SHOW 
105 REM x 

no menu=?oo:rem menu line number 

115 GRAPHICS 7 l COLOR 3 
120 REM * 

125 REM xxxxx MAIN LOOP xxxxx 

130 GOSUB MENU 

140 INPUT RESPONSE 

150 IF RESPONSEC1 OR RESPONSEM THEN 140 

160 IF RESPONSES THEN RESTORE 500 

170 IF RESPONSES THEN RESTORE 600 

180 IF RESP0NSE=3 THEN RESTORE 700 

190 IF RESPONSES THEN RESTORE 800 

200 REM x 

210 REM xxxxx DRAW ROUTINE xxxxx 

220 REM x 
230 READ X,Y 

240 PLOT X,Y:REM PICTURE START POINT 
250 READ X,YiREM GET DRAWTO DATA 
260 IF X=-l THEN 130 JREM THE FLAG? 

270 DRAWTO X,Y 

280 GOTO 250JREM GET MORE DATA 
290 REM x 

500 REM xxxxx MOUNTAIN xxxxx 

510 REM x 

520 DATA 0,26,12,20,20,23,30,18,35,12,42,13,45,10,58,6 
530 DATA 62,3,70,1,82,3,90,8,102,20,112,26,120,23 
540 DATA 130,38,135,36,150,43,-1,-1 
550 REM x 

600 REM xxxxx BARN xxxxx610 REM x 

610 REM x 

620 DATA 43,50 ,43,46,47,46,47,50 ,40 ,50 

630 DATA 40,44,45,41,50,44,50,50,40,50,-1,-1 

640 REM x 

700 REM xxxxx STAR xxxxx 

710 REM x 

720 DATA 128,10,127,11,126,11,127,12,126,13,127,13,128,14,129,13 
730 DATA 130,13,129,12,130,11,129,11,128,11,128,14,-1,-1 
740 REM x 

800 REM xxxxx HORSE xxxxx 

810 REM x 

820 DATA 52,47,54,46,54,45,54,50 ,54,48,57,48,58,47,57,48,57,50 ,-l , 
900 REM x 

910 REiM xxxxx MENU xxxxx 

920 REM x 
930 PRINT 

940 PRINT "1. MOUNTAIN 3. STAR" 

950 PRINT "2. BARN 4. HORSE" 

960 PRINT "WHICH PICTURE (1, 2, 3, OR 4) " J 
970 RETURN 
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JOYARROW 



10 REiM CONTROLLED ARROW 
20 GRAPHICS 7 

30 PRINT " JOYSTCK IN PORT It 
4 0 PRINT " TRIGGER 

50 PRINT "PADDLE IN PORT 2! 

60 x=i5;y=4o:hue=o ;lum=i4 
70 SETCOL.OR 0 , HUE > LUH 
80 COLOR 1JGOSUB 300 
90 COLOR OJGOSUB 300 
100 IF STRIG ( 0 ) =0 THEN HUE=HUE+1 
110 IF HUE>15 THEN HUE=0 
120 LUM=INT ( PADDLE ( 2 ) /16 ) 

130 IF STICK ( 0 >=14 THEN Y=Y-1 

140 IF STICK ( 0 ) =6 THEN X=X+i:Y=Y-l 

150 IF STICK ( 0 ) —7 THEN X=X+1 

160 IF STICK ( 0 ) =5 THEN X=X+1JY=Y+1 

170 IF STICK < 0 > = 13 THEN Y=Y+1 

180 IF STICK < 0 ) =9 THEN X=X-i;Y=Y+l 

190 IF STICK < 0 ) = 1 1 THEN X=X-1 

200 IF STICK ( 0 ) = 1 0 THEN X=X-1 : Y--Y-1 

210 GOTO 70 

220 STOP 

300 PLOT X,Y 

310 DRAWTO X-15 ♦ Y 

320 DRAWTO X-15, Y+2 

330 DRAWTO X,Y+2 



3 'E0 


PLOT 


X+2, Y+l 






350 


DRAWTO X-6,Y-3 






360 


PLOT 


X+2 » Y + l 






37 0 


DRAWTO X-6 > Y + 5 






380 


RETURN 




• 


390 


END 








'too 


REM 


X 






410 


REM 


X 






420 


REM 


X 






430 


REM 


X 






440 


REM 


X 






450 


REM 


* JOYSTICK 


PADDLE 


460 


REM 


X 






470 


REM 


X 






480 


R E M 


X 


14 




490 


REM 


X 






50 0 


REM 


X 10 


6 




510 


REM 


X 






520 


REM 


X 11 


15 7 


228 


530 


REM 


X 






540 


REM 


x 9 


5 




550 


REM 


X 






560 


REM 


X 


13 





CONTROLS DIRECTION."; 
BUTTON CHANGES HUE."; 
CONTROLS LUMINANCE."; 
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SOUNDARY 



100 REM * SOUND ARRAY 

110 REM * 

120 REM * 

130 REM * INITIALIZE VARIABLES AND ARRAY 
140 REM * 

150 DIM TUNE (100) 

160 XNOTE = 0 

165 REM * ASSIGN LABELS TO LINE NUMBERS 
170 MENU=30 0 
180 VALUES=50 0 
190 PLAY=7 0 0 
200 NUMBERS=90 0 
210 REM * 

220 REM * MAIN LOOP 

230 REM * 

240 GOSUB MENU 
250 INPUT RESPONSE 

260 IF RESPONSES THEN GOSUB VALUES 
270 IF RESP0NSE=2 THEN GOSUB PLAY 
280 IF RESP0NSE=3 THEN GOSUB NUMBERS 
290 GOTO 240 J REM REPEAT MAIN LOOP 
300 REM * 

310 REM * MENU 

320 REM * 

330 PRINT 

340 PRINT "WOULD YOU LIKE TO t " 

350 PRINT " 1. TYPE IN A TUNE." 

360 PRINT " 2. PLAY YOUR TUNE." 

370 PRINT " 3. LIST THE NOTES." 

380 PRINT 

390 PRINT "TYPE IN A NUMBER" J 
400 PRINT ♦ REM INPUT IN MAIN LOOP 
410 RETURN 
500 REM * 

510 REM * INPUT VALUES FOR NOTES 

520 REM * 

530 PRINT " TYPE IN NUMBERS BETWEEN 0" 

540 PRINT " AND 255 TO BE THE NOTES" 

550 PRINT " OF A TUNE. TYPE ONE NOTE" 

560 PRINT " PER ?. LHEN YOU ARE FINISHED." 

570 PRINT " TYPE A -1 FOR THE LAST NOTE." 

580 INPUT PITCH 

590 IF PITCH>255 OR PITCHC-1 THEN 580 
600 REM * MINUS ONE IS A FLAG FOR THE END OF THE DATA 
610 IF PITCH*- 1 THEN NUMNOTES=XNOTE J RETURN 
620 XNOTE=XNOTE+lJREM NOTES COUNTER 
630 TUNE ( XNOTE ) =PITCH 
640 GOTO 580 
700 REM * 

710 REM * PLAY TUNE 

720 REM * 

730 FOR XNOTE=l TO NUMNOTES 

740 SOUND O, TUNE (XNOTE) . 10 . 10 

750 FOR DELAY=1 TO 10JNEXT DELAY 

760 NEXT XNOTE 

77 0 SOUND 0.0 .0.0 

780 RETURN 

900 REM * 

910 REM * LIST NOTES 

920 REM * 

930 FOR XNOTE=l TO NUMNOTES 

94 0 PRINT "TUNE ( " > XNOTE >")"}" " J TUNE < XNOTE ) 

950 NEXT XNOTE 

960 RETURN Copyright Atari, Inc., 
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TUNE 



100 REM * TUNE ARRAY 

110 REM * 

120 DIM PITCH ( 50 ) , DISTORT < 50 ) , LOUD ( 50 ) * TIME ( 50 ) 

130 init=soo:rem INITIALIZATION LINE* 

140 PLAY=300:REM play tune routine 
150 MAXNOTES=l 1 
200 REM * 

210 REM ***** MAIN LOOP ***** 

220 REM * 

230 GOSUB INIT 

240 START=1 t FINISH=5 ♦ GOSUB PLAY 
250 START=6:FINISH=11 { GOSUB PLAY 
26 0 START=1 t FINIS H=4 * GOSUB PLAY 
270 END 
300 REM 

310 REM ***** PLAY ***** 

320 REM * 

330 REM * PLAYS A SEQUENCE OF NOTES USING DATA ARRAYS . 

340 REM * INDICES DETERMINED BY VALUES OF START AND 
350 REM * FINISH IN MAIN LOOP 
360 REM * 

37 0 FOR XNOTE=ST ART TO FINISH 

380 SOUND 0, PITCH < XNOTE ), DISTORT (XNOTE) , LOUD (XNOTE) 

390 FOR DELAY=1 TO TIME ( XNOTE > J NEXT DELAY 
400 NEXT XNOTE 
410 RETURN 
420 REM * 

500 REM ***** INIT ARRAY ***** 

510 REM * 

520 FOR FILl_=l TO MAXNOTES 

530 READ PITCH, DISTORT, LOUD, TIME 

540 PITCH ( FILL )=PITCH: DISTORT (FILL) -DISTORT: LOUD ( FILL )=LOUD: TIME ( FILL )=TIME 
550 NEXT FILL 
560 RETURN 

570 DATA 121,10,10,40,91,10,10,37,0,0,0,3,91,10,10,40,108,10,10,28 

580 DATA 0,0,0,2,108,10,10,10,91,10,10,30,108,10,10,10,121,10,10,80,0,0,0,0 
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SHIP 



100 REM * BATTLE SHIP 

110 REM * 

120 REM * 

130 REM x INITIALIZE VARIABLES 
140 REM * 

150 MAXL0CATI0NS=4 

160 DIM BOARD ( MAXLOCATIONS , MAXLOCATIONS ) 

170 COLUMN=0 J ROW=0 

175 REM ASSIGN NAMES TO SUBROUTINE LINE NUMBERS 

ISO INITMATRIX=500 

190 PLACESHIP=7 0 0 

200 PLAY = 90 0 

210 WIN= 130 0 

300 REM * 

310 REM x MAIN LOOP 

320 REM x 

330 GOSUB INITMATRIX 
340 GOSUB PLACESHIP 
350 GOSUB PLAY 
360 END 
500 REM x 

510 REM x INIT MATRIX 

520 REM x 

530 FOR ROW=l TO MAXLOCATIONS 
540 FOR COL.UMN= 1 TO MAXLOCATIONS 
550 BOARD ( ROW , COLUMN ) =0 
560 PRINT BOARD (ROW, COLUMN) 

570 NEXT COLUMN 
580 NEXT ROW 
590 RETURN 
700 REM x 

710 REM x PLACE SHIP 

720 REM x 

730 SHIPROW=INT ( RND ( 0 ) x4 ) + 1 ! REM RANDOM NUMBER 
740 SHIPCOL=INT(RND<0)*4)+i:REM BETWEEN 1 AND 4 

750 BOARD ( SHIPROW , SHIPCOL ) = 1 ♦ REM PLACE SHIP IN RANDOM LOCATION 
760 RETURN 
900 REM x 

910 REM x PLAY 

920 REM x 

930 GRAPHICS 2 

940 POSITION 0,0 

950 PRINT *6}" colunns" 

960 FOR NUMBER* 1 TO 4 

97 0 POSITION 2 , NUMBERxZ t REM ROW COORDINATES 

98 0 PRINT # 6 1 NUMBER 

990 POSITION NUMBERX4, 1 J REM COLUMN COORDINATES 
1000 PRINT #6 i NUMBER 
1010 NEXT NUMBER 
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SHIP 



1020 
1030 
1040 
1050 
10 60 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 



POSITION 
POSITION 
POSITION 
POSITION 
PRINT ” 
PRINT " 
PRINT " 



0,3t PRINT #6;"R" 

o,4:print *6;"0" 

0,5t PRINT #6; ,, W" 

o,6: print *6;"S" 

TYPE IN THE COORDINATES OF" 
YOUR GUESS. THE NUMBER MUST" 
BE BETWEEN 1 AND 4," 



PRINT "ROW: "J 
INPUT ROWGUESS 

IF ROWGUESS<l OR R0WGUESS>4 THEN 1090 
PRINT "COLUMN: n : 

INPUT COLGUESS 

IF COLGUESSC1 OR C0LGUESS>4 THEN 1120 
IF BOARD (ROWGUESS, COLGUESS ) =1 THEN GOSUB WIN 
POSITION C0LGUESS*4,R0WGUESS*2:REM PUT * ON BOARD 
PRINT *6J"x" 

PRINT : PRINT "TRY AGAIN" 



GOTO 1090 
REM * 



REM * WIN 

REM x 

PRINT : PRINT "YOU FOUND IT!" 
FOR COUNT=l TO 10 
POSITION C0LGUESSX4 , R0WGUESSx2 
PRINT *6}" "?:REM ERASE x 
FOR DELAY=1 TO 75: NEXT DELAY 
POSITION C0LGUESSx4,R0WGUESSx2 
PRINT *6:"x";:REM FLASH x 
FOR DELAY=1 TO 75:NEXT DELAY 
NEXT COUNT 
RETURN 
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NUMPUZL 



10 REM Number Pat-tern Puzzle *** 

20 DIM ANS*( 1 > ,MORE*( 1 > 

30 ? "I:-":? :? 

40 ? "This is a number puzzle* Try" 

50 ? "to figure out what the next" 

60 ? "number will be in each sequence" 

70 ? "These are the sequences!";? 

80 ? "A* 1, 3* 5* 7 , 11, 13, 17, " 

90 ? "B * 40, 51, 62, 73, 84, 95, " 

100 ? "C* 1, 1, 2, 3, 5, 8, 13, 21, " 

110 ? "D* 3, 3, 5, 4, 4, 3, 5, 5, "!? 

120 ? "What sequence would you like" 

130 ? "to try? (Type a letter*)"! 

140 INPUT ANS* 

150 IF ANS*="A" THEN GOSUB 5000 
160 IF ANS*="B" THEN GOSUB 5100 
170 IF ANS*="C" THEN GOSUB 5200 
180 IF ANS*="D" THEN GOSUB 5300 
200 ? :? "Do you want to try another" 

210 ? "sequence? (Type Y or N)"! 

220 INPUT MORE* 

230 IF MQRE*=" Y" THEN ? ":s"!G0TQ 70 
240 END 

5000 REM xxxxprime number sequence*** 

5005 REM **** xxx 

5010 ? ">"♦? !? !REM * clears screen * 

5020 ? "Type a number to finish this" 

5025 ? "sequence. You get three chances*" 5? 

5030 ? "1, 3, 5, 7, 11, 13, 17, " 

5040 FOR COUNT=l TO 3 
5050 ? * ? "NUMBER"! 

5060 INPUT NUM 

5070 IF NUM= 1 9 THEN ? "That's corr ect *"! RETURN 
5080 ? "It's not "JNUM;"* These are prime numbers 
5090 NEXT COUNT 
5095 RETURN 
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510 0 REM ****add eleven sequence**)*:*:* 

5105 REM **** xxxxx 

5110 ? "I:"!? !? IREM * clears screen * 

5120 ? "Type a number to finish this" 

5125 ? "sequence. You get three chances."!? 

5130 ? "40, 51, 62, 73, 84, 95, " 

5140 FOR COUNT=l TO 3 
5150 ? t? "NUMBER"! 

5160 INPUT NUM 

5170 IF NUM=1 06 THEN ? "That's corr ect ."! RETURN 
5180 ? "It's not " J NUM J " ♦ " 

5190 NEXT COUNT 
5195 RETURN 

5200 REM ****Fibonacci sequence****** 

5205 REM xx** xxxxxx 

5210 ? "}"!? ! ? ! REM * clears screen * 

5220 ? "Type a number to finish this" 

5225 ? "sequence. You get three chances."!? 

5230 ? "1, 1, 2, 3, 5, 8, 13, 21, " 

5240 FOR COUNT = 1 TO 3 
5250 ? ! ? "NUMBER"! 

5260 INPUT NUM 

5270 IF NUM=34 THEN ? "That's correct ♦"! RETURN 
52S 0 ? "It'S not " ! NUM J " . It's a Fibonacci." 
5290 NEXT COUNT 
5295 RETURN 

5300 REM **number of letters in hums* 

5305 REM *** *** 



5310 


• 


II -i. » 1 4 0 
-* ♦ : 


! ? ! REM * 


clears screen * 


5320 


? 


"Type 


a number 


to finish 


this" 


5325 


• 


"sequence ♦ You 


get three 


chances « " ! ? 


5330 


• 


"3, 3, 


5, 4, 4, 


3, 5, 5, 


II 



5340 FOR COUNT=l TO 3 
5350 ? ! ? "NUMBER"! 

5360 INPUT NUM 

5370 IF NUM=4 THEN ? "That's corr ect ."! RETURN 
5380 ? "It's not "JNUM!"." 

5390 NEXT COUNT 
5395 RETURN 
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WHOAMI 



10 REIM xWho Am I-Nanes in CoMputing* 

2 0 DIM CORRECT ANS$ ( 1 ) > USERANS$ < 1 ) > R$ ( 1 ) 
30 G 0 S U E-: 2600 :REM xx Directions xx 
40 GOSUB 2100 tREM xx Babbage xx 

50 GOSUB 2800 JREM xx Answers xx 

60 CORRECT ANS$="E" 

70 GOSUB 2700 JREM xx Answer Input xx 



80 


gosub : 


29000 JREM 


XX 


Wait Loop 


XX 


90 


GOSUB 


250 0 J REM ** 


Hollerith 


XX 


100 


GOSUB 


2800 JREM 


XX 


Answers 


XX 


110 


CORRECTANS*="B" 








120 


GOSUB 


2700 JREM 


XX 


Answer Inputxx 


130 


GOSUB 


29000 JREM 


XX 


Wait Loop 


XX 


140 


GOSUB 


2200 JREM 


XX 


Ada 


XX 


150 


GOSUB 


2800 JREM 


XX 


Answers 


XX 


160 


CORRECTANS*="C" 








170 


GOSUB 


2700 JREM 


XX 


Answer Inputxx 


ISO 


GOSUB 


29000 JREM 


XX 


Wait Loop 


XX 


190 


GOSUB 


2300 JREM 


XX 


Pascal 


XX 


200 


GOSUB 


2800 JREM 


XX 


Answers 


XX 


210 


CORRECT ANS$ =,, A" 




. 




220 


GOSUB 


2700 JREM 


XX 


Answer Inputxx 


230 


GOSUB 


29000 JREM 


XX 


Wait Loop 


XX 


240 


GOSUB 


2400 JREM 


XX 


Boole 


XX 


250 


GOSUB 


2800 JREM 


XX 


Answers 


XX 


260 


CORRECT ANS$="D" 








27 0 


GOSUB 


2700 JREM 


XX 


Answer Inputxx 


280 


GOSUB 


29000 JREM 


XX 


Wait Loop 


XX 


290 


END 











2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 



REM 

'P 



XXX 



Charles E’.abbage 



xxx 



7 

7 

7 

'P 



">"J PRINT 

"An English MatheMat ician and" 



r 



"inventor who is often called" 

"the Father of Conputing* He" 

"said, '1 an thinking that all" 

"those tables Might be" 

"calculated by Machinery* /n 

9 ♦ 

▼ • 

RETURN 

REMxxxxxx ADA xxxxx 

^ "I:": PRINT 

An exceptional English MatheMat ician" 
"who is credited with being the first" 
person to Make the statewent that" 
coMputers can do only what you" 
prograM theM to do* Wrote about" 
Babbage's Analytical Engine ♦ " 

PRINT : PRINT 
RETURN 



7 

7 

v 

• 

7 

7 

*p 



1 1 



1 1 



1 1 



• i 



1 1 
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WHOAMI 



2300 
2310 
2320 
2330 
234 0 
2350 
2360 
2370 
2400 
2410 
2420 
2430 
2440 
2450 
2500 
2510 
2520 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2625 
2630 
2640 
2650 
2660 
2670 
2680 
2685 
2690 
2695 
2699 



REM x*x Blaise Pascal xx* 

? "I:": PRINT 

? "A French Mathenat ician who was" 

? "the first person to invent a" 

? "significant calculating " 

? "Machine." 

PRINT t PRINT 
RETURN 
REM xxx 
? J PRINT 
? "An English 
? "pioneer of 
PRINT 5 PRINT 
RETURN 

REM xxx Hollerith xxx 

o 1 1 1 1 ♦ o 

. .» ♦ : 

? "An Awericsn inventor ♦ The M 
? "first to do a practical" 

? " ifip leMentat ion of punched cards*" 

PRINT : print 
RETURN 

REM ** Who Am I - Directions ** 

? " WHO AM I?" 

7 

? "After you read the description" 

? "of the person, choose your" 

? "answer froM the nsnes given*" 

? "Type in the letter of the" 

? "correct answer* Each of the" 

? "nanes is fsMous in conputing*" 

? "Press RETURN when you are " 

? "ready to begin*" 

INPUT R* 



Boole xxx 

logician* The" 

Modern syMholic logic*" 



RETURN 



2700 REM xxx Asks for answer xxx 
2710 REM xinput with correct answer* 

2720 ? :? "Who aM I? Type a letter"? 

2730 INPUT USERANS* 

27 4 0 IF U S E R A N S $ = C 0 R R E C T AN S $ THEN ? "That's 



2750 


? "That 


's not My r»3Me* The" 


2760 


? "correct 


answer is " ? CORRECTANS* ? " * " 


2770 


RETURN 






28 0 0 


r e: m 


XXX 




Answers xxx 


2810 


? :? 


:? 






282 0 


^ •• 

• 




A. 


Pascal " 


2830 


? " 




B. 


Hollerith" 


284 0 


? " 




C. 


Ada" 


2850 


? " 




D. 


Boole" 


2860 


? " 




E. 


Babbage" 


2870 


RETURN 






29000 


REM 


XX 


Delay Loop ** 


2901 0 


FOR 


WAIT = 1 


TO SOOJNEXT WAIT 



29020 RETURN 



correct 



1 1 * 
♦ 



RETURN 
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PASSWORD 



10 REM * Self destructive progrsrt * 

20 ? "::":REH * Clears Screen * 

30 DIM WORD* < 25 ), PASSWORD* (25) 

d0 ? "If you want to read My Message," 

50 ? "you Must give Me the password*" 

60 ? "If you give Me the wrong word," 

70 ? "the prograM destroys itself*" 

80 INPUT WORD* 

90 PASSWORD* = "ATAF<I" 

10 0 IF WORD* OF-' ASS WORD* THEN NEW 

110 ? J? "Congratulations! You guessed" 

120 ? "the password*" 

130 END 
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FORTUNE 



0 REM Fortune teller 
0 PRINT "I:": REM Clear screen 

0 PRINT : PRINT "I will tell you your fortune*" 
0 PRINT "Let's see ..." J PRINT 
0 NUM=INT(3*RND<0) > 

60 FOR WAIT=1 TO 1000JNEXT WAIT 
70 PRINT "+++++++++++++" 

80 PRINT "You will becone very "J 
9 0 IF NLJM=0 THEN PRINT "rich." 

100 IF NUM=1 THEN PRINT "poor." 

110 IF NUM=2 THEN PRINT "powerful." 

120 NUM = INT<3*RND<0 ) ) 

130 FOR WAIT=1 TO 7501NEXT WAIT 
140 PRINT "You will also be very "J 
150 IF NUM=0 THEN PRINT "happy." 

160 IF NUM=1 THEN PRINT "fanous." 

170 IF NUM=2 THEN PRINT "popular." 

180 PRINT "+++++++++++++" 

190 GOTO 30 



Copyright Atari, Inc., 



1983. All rights reserved. 



VACATION 



10 REIM xxxxxxxxxMAIN PROGRAMxxxxxxxxx 



50 


QC) SUB 


10300 JREM 


X 


Title Page 


X 


60 


GOSUB 


ioioo :rem 


X 


Author Page 


X 


70 


GOSUB 


iioo :rem * 




Introduction 


X 


80 i 


GOSUB : 


29000 JREM 


X 


Wait Loop 


X 


90 


GOSUB 


1 0 0 0 0 J REM 


*Going in circles* 


100 


GOSUB 


i20o:rem 


*Le3ving the city* 


110 


GOSUB 


20500 :rem 


X 


Train sound 


X 


120 


GOSUB 


1300 jrem 


x 


Arrive at beach* 


130 


GOSUB 


20900JREM 


X 


Ocean sound 


X 


140 


GOSUB 


1400 JREM 


X 


The Storn 


X 


150 


GOSUB 


29000 JREM 


X 


Wait Loop 


X 


160 


GOSUB 


10600 JREM 


X 


Rain graphic 


X 


170 


GOSUB 


1700 JREM 


X 


Rain text 


X 


180 


GOSUB 


29000 JREM 


X 


Wait Loop 


X 


190 


GOSUB 


10 600 JREM 


X 


Rain graphic 


X 


200 


GOSUB 


1700 JREM 


X 


Rain text 


X 


210 


GOSUB 


29000 JREM 


X 


Wait Loop 


X 


220 


GOSUB 


10600 JREM 


X 


Rain graphic 


X 


230 


GOSUB 


1500 JREM 


X 


Phone Hone 


X 


240 


GOSUB 


20300 JREM 


X 


Busy Signal 


X 


250 


GOSUB 


1800 JREM 


X 


End of Rope 


X 


260 


GOSUB 


20100 JREM 


X 


Chirping bird 


s x 


270 


GOSUB 


1900 JREM 


X 


Sunshine text 


X 


280 


GOSUB 


29000 JREM 


X 


Wait Loop 


X 


290 


GOSUB 


10200 JREM 


X 


Sun graphic 


X 


300 


G O S U B 


2000 JREM 


X 


Noend text 


X 


310 


GOSUB 


29000 JREM 


X 


Wait Loop 


X 


350 


END : 


REM * End 


of 


Main Progran 


X 


360 


REM 










37 0 


REM 










380 


REM 










1100 rem 


xxxxxxl introduction ********** 


110 


5 GRAPHICS 1+16 









1110 


'P 

• 


*6 




1115 


• 


$6 




1120 


7 


*6 




1125 


? 


#6 J 


"A MAN NAMED FRED" 


1127 


7 


*6 




1130 


7 


#6 J 


"WAS VERY BORED" 


1135 


7 


#6 




1140 


7 


+ 6J 


"WITH LIFE. IT" 


1145 


'P 

• 


*6 




1150 


'P 

• 


*6J 


"SEEMED LIKE ALL HE" 


1155 


7 


*6 




1160 


7 


#6 J 


"EVER DID WAS GO" 


1165 


7 


*6 




1170 


7 


*6 J 


"AROUND IN CIRCLES." 


1180 


RETURN 
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VACATION 



1200 REM xxxxxLeaving the city******* 
1205 GF< AF : 'HICS 1 + 16 



1210 


7 


*6 






1215 


7 


*6 






1220 


• 


#6 






1225 


m 


*6; 


"ONE DAY 


HE " 


1227 


V 

* 


*6 






1230 


• 


*6 5 


"DECIDED 


TO LEAVE 


1235 


• 


*6 






1240 


• 


*65 


"THE BIG 


CITY." 


1245 


7 


*6 






1250 


• 


*6 5 


"HE GOT 


ON A" 


1255 


• 


*6 






1265 


• 


*6 5 


"TRAIN. . 


II 

♦ ♦ ♦ ♦ ♦ 



127 0 RETtmN 

1300 REM *****Arriv3l at beseh******* 
1302 GRAPHICS 1+16 
1305 ? *6 

1310 ? *6 5 " .AND WENT TO" 

1315 ? *6 

1320 ? *6 5 "THE BEACH FOR A" 

1325 ? *6 

1330 ? #6 5 "VACATION . THE DAY" 

1335 ? #6 

1340 ? #6 5 "HE ARRIVED, IT WAS" 

1345 ? *6 

1350 ? #6 5 "SUNNY AND WARM," 

1355 ? #6 

1360 ? 1=6 5 "THE SOUND OF THE" 

1365 ? *6 

1370 ? $6 5 "OCEAN WAS VERY" 

1375 ? *6 

1380 ? *6? "CALMING TO HIS" 

1385 ? *6 

1390 ? #6J "NERVES," 

1395 RETURN 

1400 REM ******«***Stor m************* 
1410 GRAPHICS 2+16 
1425 ? *6 
1440 ? *6 

1445 ? *65 "H O W E V E R.,.,." 

1450 ? *6 

1455 ? *6J "THAT NIGHT A STORM" 

1460 ? *6 

1465 ? *6? "CAME UP AND IT" 

1470 ? *6 

1475 ? *6 5 "RAINED 

1480 RETURN 
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VACATION 



150 0 REM xxxxxxxxphone honexxxxxxxxxx 
1501 GRAPHICS 1+16 



1505 


*P 

• 


*6 


1510 


• 


i 6 ; "HE DECIDED TO " 


1515 


'P 

• 


4=6 


1520 


7 


* 6 ; "PHONE HOME TO SEE" 


1525 


*p 

• 


4:6 


1530 


'P 

• 


* 6 J "IF THE WEATHER" 


1535 


7 


*6 


1540 


'P 

• 


4:6; "WAS ANY BETTER " 


1545 


7 


*6 


1550 


*p 

• 


4:6 ; "THERE. BUT SINCE" 


1555 


*p 

• 


4:6 


1560 


7 


# 6 ; "HIS CHILDREN WERE" 


1565 


7 


4=6 . 


1570 


• 


4=6; "ALWAYS ON THE " 


1575 


7 


4:6 


1580 


7 


* 6 ; "PHONE, ALL HE GOT" 


1585 


'P 

• 


t -6 


1590 


7 


# 6 ; "WAS A BUSY SIGNAL." 


1595 


RETURN 



1700 REEM xxxxxxAnd it rsinedxxxxxxxxx 

1710 GRAPHICS 2+16 

1720 ? *6 

1730 ? *6 

1740 ? *6 

1750 ? *6 

1755 ? *6 

1760 ? * 6 ;" AND IT RAINED..." 

1770 RETURN 

1S00 REM xxxxxEEnd of his rope******** 
1805 GRAPHICS 1+16 
1810 ? #6 
1815 ? *6 
1820 ? 4=6 
1825 ? *6 
1830 ? #6 

1840 ? 4=6 > "JUST AS HE WAS AT" 

1845 ? *6 

1S50 ? # 6 ? "THE END OF HIS " 

1855 ? *6 

1860 ? #6 J "ROPE AND READY TO" 

1865 ? #6 

1870 ? 4:6? "RETURN HOME, THE" 

1875 ? *6 

1880 ? # 6 J "BIRDS BEGAN TO" 

1385 ? +6 

1390 ? 4:6; "SING. ♦ . " 

1895 RETURN 
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VACATION 



1900 
1902 
1910 
1920 
1930 
1950 
1960 
1980 
1990 
2000 
2010 
2020 
2030 
2 0 4 0 
2050 
2060 
2065 
2070 
2080 
2085 
2095 



REM xxxx* Sunshine*********** 
GRAPHICS 2+16 
? *6 
? *6 
? *6 
? #6 
? *6 

? *6? "THE SUN CAME OUT...." 
RETURN 

REM xxxxxTo be continued****** 
GRAPHICS 2+16 
? #6 

? *6J". . . . . AND HE. . . ." 

? *6 

? (TO BE CONTINUED)" 

? *6 
? #6 

r *b* o f ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

? *6; "YOU FINISH THE STORY" 

n j. l ♦ • » » • 

RETURN 



10000 REM *****Going in circles***** 

10010 GRAPHICS 7+16J COLOR 2 
10020 FOR COUNTER=l TO 50 
10030 Z=Z+0 . 5 

10040 X=SIN < Z ) *25 ♦ Y=COS ( Z ) *22 
1 0 050 PLOT X+80 » Y+45 
10060 NEXT COUNTER 
10070 RETURN 

1010 0 REIM x******Author Page********* 

10110 GRAPHICS 2+16 

10120 POSITION 4,2: PRINT *6 \ " *************" 
10130 POSITION PRINT *6;"* *" 

10135 POSITION 4, 4i PRINT *6;"* BY *" 

10 14 0 POSITION 4.5t PRINT T6;"* *" 

10150 POSITION 4, 6: PRINT *6;"* YOUR NAME *" 
10155 POSITION 4 ,7: PRINT *65"* *" 

10160 POSITION 4, 8: PRINT t6;"*************" 
10170 GOSUB 29000:REM * Wait Loop * 
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VACATION 



10200 
1 0205 
10210 
10215 
10220 
10225 
10230 
10235 
10240 
10245 
10250 
10255 
10260 
10270 
10275 
10280 
10285 
10290 
10295 
10300 
10310 
10 315 
10320 
10325 
1 0330 
10340 
10345 
10350 
10355 
10360 
10365 
10370 
10600 
1 0605 
10610 
10620 
10630 
10640 
1065 0 
10660 
10 670 



REIM xxxxxxxxxxxSunxxxxxxxxxxx 
GRAPHICS 3+16' 

? *6J " 

? *6; n 
? * 6 ?" 

? * 6 ?" 

? *6; •• ===== 

? ====== 

? *6;" ======== 

? * 6 ?" ====== 

? ==== = 

? *6J" 

? *6J" = 

? * 6 }" 

? *6j" 

GOSUB 29000 :REM x Wait Loop x 
RETURN 

REM xxxxxxxxTi t le pagexxxxxxxx 
GRAPHICS 2+16J COLOR 2 
PRINT *6t PRINT *6 J PRINT *6: PRINT *6 
PRINT *6J" A" 

PRINT *6: M VACATION" 

PRINT *6:" STORY" 

PLOT 1 * 1 
DRAWTO 19*1 
DRAWTO 19*9 
DRAWTO 1*9 
DRAWTO 1*1 

GOSUB 290 0 0 ‘.REM x Wait Loop x 
RETURN 

REM xxxxxxxxxRainxxxxxxxxxxxxxx 

FOR LOOP=l TO 3 

GRAPHICS 3+16 

FOR COUNTER=l TO 84 

PRINT #6,"+"; 

NEXT COUNTER 
GRAPHICS 0 
NEXT LOOP 
RETURN 
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VACATION 



20100 REM xxxxxxxChirp ing Birdsxxxxxx 

20110 FOR LOOF-1 TO 4 

20120 FOR COUNT=l TO 5 

20130 FOR F'ITCH=1 TO 15 

20140 SOUND 2, PITCH, 10, 8 

20150 NEXT PITCH 

20160 NEXT COUNT 

20170 NEXT LOOP 

20180 SOUND 2, 0,0,0 

20190 RETURN 

20300 REM xxxTelephone Busy Signalxxx 

20305 FOR RINGS=1 TO 9 

20310 SOUND 2,40,6,10 

20320 FOR WAIT=1 TO 50 : NEXT WAIT 

20330 SOUND 2, 0,0,0 

20340 FOR WAIT=1 TO 25 1 NEXT WAIT 

20350 NEXT RINGS 

20360 RETURN 

20500 REM xxxxxsteaw Loconot i vexxxxxx _ 

20510 FOR LOOP=l TO 25 

20520 FOR LOUD=l 0 TO 0 STEP -1 

20530 SOUND 0,15,0, LOUD 

20540 NEXT LOUD 

20550 NEXT LOOP 

20560 SOUND 0,0, 0,0 

20570 RETURN 

20900 REM xxxxxxxxxxxOceanxxxxxxxxxxx 

20910 FOR LOOP=l TO 2 

20920 FOR PITCH=0 TO 12 

20930 SOUND 0, PITCH, 8, 6 

20940 FOR WAIT=1 TO 5 i NEXT WAIT 

20950 NEXT PITCH 

20960 FOR PITCH=12 TO 0 STEP -1 

20970 SOUND 0, PITCH, 8, 4 

20975 FOR WAIT=1 TO 17 : NEXT WAIT 

20980 NEXT PITCH 

20985 NEXT LOOP 

20990 SOUND 0,0, 0,0 

20995 RETURN 

29000 REM xxxxxxxxWait loopxxxxxxxxxx 
29010 FOR WAIT = 1 TO 50 0 ? NEXT WAIT 
29020 RETURN 
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CONTINUETXT 



2000 
2010 
2020 
2030 
2040 
2050 
2 0 6 0 
2065 
2070 
2080 
2085 
2095 



REM **x*xTo be continued****** 
GR AF : ‘HICS 2+16 
? *6 

? *6?" ♦ . ♦ .AND HE. . . 

? *6 

? #6 ? •’ (TO BE CONTINUED)" 

? *6 
? *6 

'P AA ♦ '* ii 

r iro f ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

? *6; "YOU FINISH THE STORY" 

O 4.IHI II 

r o * ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

RETURN 
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SUNSHINETXT 



1900 

1902 

1910 

1920 

1930 

1950 

1960 

1980 

1990 



R EIM xxxxxxxxxSunshinexx********* 
GRAPHICS 2+16 



? 1=6 
? #6 
? 4=6 
? 4-6 
? 4=6 

? 4=6J "THE SUN CAME OUT . . ♦ . 
RETURN 
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ENDROPE TXT 



180 0 REM *****End of his rope******** 
1805 GRAPHICS 1+16 
1810 ? *6 
1815 ? *6 
1820 ? 4=6 
1825 ? 4=6 
1830 ? 4=6 

1840 ? 4=6 ; 11 JUST AS HE WAS AT" 

1845 ? 4=6 

1850 ? 4=6? "THE END OF HIS " 

1855 ? 4=6 

1860 ? 4=6J "ROPE AND READY TO" 

1865 ? 4=6 

1370 ? 4=6 J "RETURN' HOME t THE" 

1875 ? 4=6 

1880 ? 4=6 ; "BIRDS BEGAN TO" 

1885 ? 4=6 

1890 ? 4=6; "SING* . . " 

1895 RETURN 
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PHONHOMETXT 



150 0 REIM xxxxxxxxphone hoMe*xxxxxxxxx 
1501 GRAPHICS 1+16 



1505 


*P 

• 


*6 


1510 


• 


*6 i "HE DECIDED TO " 


1515 


• 


*6 


1520 


*P 

• 


#6^ "PHONE HOME TO SEE 


15 25 


*P 

• 


♦•6 


1530 


r? 

• 


*6; n IF THE WEATHER" 


1535 


'P 

• 


*6 


1540 


• 


#6 i "WAS ANY BETTER " 


1545 


• 


t6 


1550 


r? 

• 


*6 \ "THERE ♦ BUT SINCE 


1555 


'P 

• 


4=6 


1560 


'P 

• 


4:6;"HIS CHILDREN WERE 


1 565 


*p 

• 


*6 


1570 


'P 

• 


4=6 J "ALWAYS ON THE " 


1575 


*p 

• 


4-6 


1580 


• 


4:6 J "PHONE t ALL HE GOT 


1585 


*p 

• 


4=6 


1590 


• 


4:6? “WAS A BUSY SIGNAL 


1595 


RETURN 





Copyright Atari , 



Inc . , 



1983. All rights reserved. 



STORM TXT 



1400 REM xxxxitcacxxxxStor n************* 
1410 GRAPHICS 2+16 
1425 ? 4=6 
1440 ? *6 

1445 ? *6}"H 0 W E V E R*...," 

1450 ? *6 

1455 ? *6? "THAT NIGHT A STORM" 

1460 ? *6 

1465 ? t-6 J "CAME UP AND IT" 

1470 ? *6 

1475 ? *6 t "RAINED *.♦♦♦" 

1480 RETURN 
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BEACH TXT 



1300 REM xxxxxArrivsl at beschxxxxxxx 
1302 GRAPHICS 1+16 



1305 


• 


*6 




1310 




♦ 6J 11 .AND 


WENT TO" 


1315 


• 


*6 




1320 


• 


#6 i "THE BEACH 


FOR A" 


1325 


• 


*6 




1330 


• 


*6; "VACATION ♦ 


THE DAY" 


1335 


7 


#6 




1340 


7 


*6;"HE ARRIVED 


, IT WAS" 


1345 


• 


*6 




1350 


• 


♦ 6 t "SUNNY AND 


WARM." 


1355 


7 


*6 




1360 


• 


*6? "THE SOUND 


OF THE" 


1365 


r> 

• 


#6 




1370 


7 


#6 t "OCEAN WAS 


VERY" 


1375 


• 


i-6 




1380 


• 


#6 ? "CALMING TO 


i HIS" 


1385 


• 


*6 




1390 


• 


*65 "NERVES." 




1395 


RETURN 
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LEAVING TXT 



00 REM xxxxxLesving the city******* 
05 GRAPHICS 1+16 
10 ? *6 
15 ? *6 
20 ? *6 

25 ? *6; M 0NE DAY HE *' 

27 ? *6 

30 ? $6 i "DECIDED TO LEAVE" 

35 ? *6 

40 ? *6; "THE BIG CITY*" 

45 ? #6 

50 ? #6 > "HE GOT ON A" 

55 ? *6 
1265 ? # 6 1 "TRAIN . ♦ 

1270 RETURN 
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1100 

1105 

1110 

1115 

1120 

1125 

1127 

1130 

1135 

1140 

1145 

1150 

1155 

1160 

1165 

1170 

1130 



INTRO TXT 



REM xxxxxxlntroductionxxxxxxxxxx 
GRAPHICS 1+16 
? *6 
? *6 
? *6 

? *6; "A MAN NAMED FRED" 

? t-6 

? *6;"WAS VERY BORED" 

? *6 

? #6 } "WITH LIFE ♦ IT" 

? *6 

? * 6 1 "SEEMED LIKE ALL HE" 

? *6 

? $ 6 1 "EVER DID WAS GO" 

? #6 

? #6 t "AROUND IN CIRCLES ♦ " 

RETURN 
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SUN GR 



1020 0 REM xxxxxxxxxxxSunxxxxxxxxxxx 
10205 GRAPHICS 3 + 16 
10210 ? * 6 ;" 

10215 ? *6J" =. = " 

10220 ? *6 J" 

10225 ? *6;" = 

10230 ? *6J" ===== 

10235 ? *6;" ====== 

10240 ? *6J" ======== = = = » 

10245 ? 1=6;" = = = ======== 

10250 ? *6;" ======== 

10255 ? *6;" ====== 

10260 ? *6;" ===== = 

10270 ? *6;" = = 

10275 ? *6;" = = 

10 280 ? 1=6;" 

10285 ? *6;" • = 

10290 RETURN 
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USINGAND 



10 REM xxx Using AND xxx 

20 DIM ANS$ (10), CORRECT $ < 1 ) 

30 CORRECT $="N" J COUNT=0 
^0 ? J? 

50 ? “Who published 'On Conputable" 

60 ? "NuMbers', one of the Most inportent" 

70 ? "papers in the foundations of" 

80 ? " comp u ter science? You get three" 

90 ? "chances to give the right answer*"*? 

100 INPUT ANS* 

110 IF ANS*="Turing" THEN C0RRECT*="Y" 

120 C0UNT=C0UNT+1 

130 ? "COUNT = " J COUNT 

14 0 ? "CORRECT = " > CORRECT $ ♦ ? 

150 IF COUNT 03 AND C0RRECT*="N" THEN ? "Try again: "*, JGOTO 100 

160 IF C0RRECT*="Y" THEN ? "Yes, it was Alan Matheson Tur ing * " : GOTO 200 

170 ? "This was a difficult question* The" 

180 ? "answer can be found on page 79 of" 

190 ? "the book, 'The Making of the Micro'*" 

200 END 
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JSTICK 



10 REM * E;:per inent ing with s Joystick * 

15 GRAPHICS 3+16 
20 x=39:y=i9:c=i 
30 X0LD=XJ Y0LD=Y 

“40 STK=STICK (0)5 IF STKOlS THEN GOSUB 200 

5 0 COLOR 0 * PLOT XOLD » YOLO 

60 COLOR cjplot X,Y 

70 IF STRIG < 0 ) = 0 THEN GOSUB 300 

80 GOTO 30 

200 IF < STK=5 ) OR <STK=6) OR <STK=7> THEN X=X+1 
210 IF ( STK=9 ) OR <STK=10> OR STK=<11) THEN X=X-1 
220 IF ( STK=1 0 ) OR <STK=6) OR <STK=14) THEN Y=Y-1 
230 IF ( STK=9 ) OR <STK=13) OR <STK=5) THEN Y=Y+1 
2^0 RETURN 
300 C=C+1 

310 IF C = 4 THEN C=1 
320 RETURN 
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JOYSTKl 



10 REM * Practice with the joystick * 
20 NUM=STICK ( 0 ) 

30 IF NUM=15 THEN ? "RESTING" 

40 IF NUM=14 THEN ? "GOING FORWARD" 

50 IF NUM = :L3 THEN ? "GOING BACKWARD" 
60 IF NUM=1 1 THEN ? "LEFT" 

70 IF NUM=7 THEN ? "RIGHT" 

80 IF NUM=1 0 THEN ? "UP 8 , LEFT" 

90 IF NUM=6 THEN ? "UP & RIGHT" 

100 IF NUM=9 THEN ? "DOWN & LEFT" 

110 IF NUM=5 THEN ? "DOWN & RIGHT" 

120 ? "Joystick = "JNUMJ? 

130 FOR WAIT— '1 TO 250 ♦ NEXT WAIT 
140 GOTO 20 
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CHOMP. 
PAGE 1 



1 0 DIM LINE* ( 25 > , L* < 25 ) , B* ( 25 ) 

20 PRINT ">’‘:REM CLEAR SCREEN 
30 POKE 752,1 JREM TURN OFF CURSOR 
100 POSITION 5,5 

GQSUE3 11300 JREM TREE 
POSITION 2 4,4 
GOSUB 10900 JREM ROCKET 
POSITION 22,15 
GOSUE3 1120 0 : REM BOAT 
POSITION 6,16 
GOSUB 11000 JREM SHUT 
POSITION 6,16 
GOSUB 11100 JREM OPEN 
GOTO 160 

REM xxxxx*ROCKET****** 
LINE*=" " 

PRINT " " J LINE* J 

PRINT " | " JLINE*J 

PRINT 



110 
120 
130 
140 
150 
160 
170 
ISO 
190 
200 
10900 
10910 
10920 
10930 
10 940 



MOUTH 



MOUTH 



II 



10950 
10960 
10970 
10 980 

10985 

10990 

10995 

11000 

11010 

11020 

11030 





" JLINE*J 


PRINT " 


" J LINE* J 


PRINT " 


" JLINE*J 


PRINT " 


" J LINE* J 


PRINT " 






" J LINE* J 


PRINT " 


/'\ " J LINE* } 


PRINT " 


II ♦ 

t 


RETURN 





REM xxxxxxxSHUT MOUTH********** 
LINE*=" " 

PRINT " " J LINE* } 

PRINT " 



" J LINE* J 

11040 PRINT " " J LINE* J 

1 1 050 PRINT " " } LINE* J 

11060 PRINT " 

MJZTNE* J 

11070 PRINT " 



" JLINE*J 
11080 PRINT " " J 
11090 RETURN 
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CHOMP 
PAGE 2 



11100 


REM xxxxxxxxOPEN MOUTH********* 


11110 


LINE** 


II II 




11120 


PRINT 


1 1 


" ; LINES? 


11130 


PRINT 


1 1 


* 




• 


1 1 


;line*; 


11140 


PRINT 


1 1 


" ;line* ; 


11150 


PRINT 


II 


" » LINE* } 


11160 


PRINT 


1 1 


" t LINE* J 


11170 


PRINT 


II 






• 


II 


} LINE* > 


11180 


PRINT 


1 1 


II ♦ 

t 


11190 


RETURN 






11200 


REZM xxxxxxxxxxxBQATxxxxxxx***** 


11210 


LINE** 


II II 




11220 


PRINT 


II 


" t LINE * i 


11230 


PRINT 


II 


I " t LINE* J 


11240 


PRINT 


1 1 


1 








" J LINE* t 


11250 


PRINT 


II 






"JLINE* 


♦ 

t 


11260 


PRINT 


r 


" \ LINE * i 


11270 


PRINT 


1 1 






ll < 

i 

4 


;l.ine*; 


1128 0 


PRINT 


i i 


" jline*; 


11290 


PRINT 


1 1 


ii ♦ 
t 


11295 


RETURN 






11300 


REZM xxxxxxxxxxxTREExxxx******** 


11310 


LINE** 


n ii 




11320 


PRINT 


1 1 


" *,LINE*J 


11330 


PRINT 


n 


A "JLINEfJ 


11340 


PRINT 


1 1 








1 1 


J LINE* t 


11350 


PRINT 


1 1 








1 1 


J LINE* » 


11360 


PRINT 


1 1 








1 1 


t LINE* 1 


11370 


PRINT 


n 








ii 


t LINE* t 


11380 


PRINT 


1 1 


" i LINE* ; 


11390 


PRINT 


1 1 


II ♦ 

t 


11395 


RETURN 
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PRINTS 



10 REM * This progrsM enables the 
20 REM * user to create pictures 
30 REM * wore easily using control 
■^0 REM * graphics characters* 

100 PRINT " 

110 PRINT " 

120 PRINT " 

130 PRINT " 

140 PRINT " 

150 PRINT " 

160 PRINT " 

170 PRINT " 

180 PRINT " 

190 PRINT " 

200 PRINT " 

210 PRINT “ 

220 PRINT " 

230 PRINT " 

240 PRINT " 

250 PRINT " 

260 PRINT " 

270 PRINT " 

280 PRINT " 

290 PRINT " 

300 PRINT " 




Copyright Atari, Inc., 



1983. All rights reserved. 



SOUNDS 



10 REM SOUND DEMONSTRATION 
2 0 PRINT "I:": REM CLEAR SCREEN 
30 VOICES 

40 PRINT "LOW PITCH (0 - 255) "J 
50 INPUT LOPITCH 

60 IF LOPITCHCO OR L0PITCH>255 THEN 40 
70 PRINT "HI PITCH ("JLOPITCHJ" - 255) "J 
80 INPUT HIPITCH 

90 IF HIPITCH CLOP ITCH OR HIPITCH>255 THEN 70 
100 PRINT "STARTING VOLUME (0 - 15) "J 
110 INPUT STARTVOL 

120 IF STARTVOLCO OR STARTV0L>15 THEN 100 
130 PRINT "ENDING VOLUME (0 - 15 ) " J 
140 INPUT FINISHVOL 

150 IF FINISHVOLCO OR FINISHV0L>15 THEN 130 
160 PRINT "DISTORTION <0 - 14) "J 
170 INPUT DISTORTION 

180 IF DISTORTIONS OR DIST0RTI0N>14 THEN 160 
190 FOR PITCH=LOPITCH TO HIPITCH 

200 PRINT "PITCH = " J PITCH , "DISTORTION = " J DISTORTION 

210 FOR VOLUME=ST ART VOL TO FINISHVOL STEP SGN ( FINISHVOL-STARTVOL ) 

220 SOUND VOICE, PITCH, DISTORTION, VOLUME 

230 NEXT VOLUME 

240 SOUND VOICE, 0 , 0 , 0 IREM TURN OFF SOUND 

250 FOR PAUSE=1 TO 20 J NEXT PAUSE 

260 NEXT PITCH 

270 GOTO 20 

280 STOP 

290 END 
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COLOR 



0 REH worksheet: color manipulation 

0 REM MANIPULATES BORDER AND DISPLAY SCREEN COLORS. 
0 PRINT REM ESC KEY FOLLOWED BY SHIFT CLEAR. 

0 REG=2.REM PLAYFIELD 1 
0 GOSUB 200 
0 SETCOL.OR 2.0.0 
70 reg=4:rem BACKGROUND 
80 GOSUB 200 
90 SETCOLOR 4.0.0 
100 GOTO 40 
200 FOR HUE=0 TO 15 
210 FOR LUM=0 TO 14 STEP 2 
220 SETCOLOR REG . HUE .LUM 
230 FOR PAUSE=1 TO 30 : NEXT PAUSE 
240 NEXT LUM 
250 NEXT HUE 
260 RETURN 
270 END 
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BOX 



10 REIM worksheet: colored box 

20 F'AUSE=80 

30 GRAPHICS 7+16 

40 COLOR 1 

50 GOSUB 200 

60 FOR HUE=0 TO 15 

70 FOR LUM=0 TO 14 STEP 2 

80 SETCOLOR 0 , HUE , LUM 

90 GOSUB 30 0: REM PAUSE 

100 NEXT LUM 

110 NEXT HUE 

120 GOTO 60 

200 REM DRAW SQUARE 

210 PLOT 90,50 

220 DRAWTO 90,30 

230 GOSUB 30 0: REM PAUSE 

240 DRAWTO 70,30 

250 GOSUB 30 0 5 REM PAUSE 

260 POSITION 70,50 

270 POKE 765,1 

280 XIO 18, *6, 0 , 0 , "S: " 

290 RETURN 

300 FOR P=1 TO PAUSE: NEXT P 
310 RETURN 
320 END 
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CLOWN 



10 DIM CMD$ < 1 ) 

100 PRINT 

110 PRINT "MODE 3, 5, OR 7"\ 

120 INPUT MODE 

130 GRAPHICS MODE+16 

0 OPEN *1,4,0,"D: CLOWN. DAT": INPUT *1JGR 

0 INPUT *i;CMD$JIF CMD*="D" THEN INPUT *i;X,YtGOSUB 500JDRAWTO X,YJGOTO 
0 IF CMD*="F" THEN INPUT 4=1 J X , Y » Z ♦ GOSUB SOOJPOSITION X,YJPOKE 765 t ZtXI0 

o,"s:":plot x,y:goto 220 

0 IF CMD*="P" THEN INPUT *l,X,Y:GOSUB SOOtPLOT X,YtGOTO 220 
0 IF CMD*="S" THEN INPUT *1 , X , Y , Z l SETCOLOR X-l,Y,ZJGOTO 220 
0 IF CMD*="C" THEN INPUT *l»X:COLOR XJGOTO 220 
0 CLOSE *1 
0 GOTO 310 
0 END 

0 REM SCALING ROUTINE 
0 X=X-30 

0 IF M0DE=7 THEN RETURN 

0 IF M0DE=5 THEN X=INT < X/2 ) J Y=INT < Y/2 > 

0 IF M0DE=3 THEN X=INT ( X/^ ) I Y=INT ( Y/^ ) 

0 RETURN 
0 END 



21 
1 £ 
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NEAT 



REM CHARACTER GRAPHICS 
PRINT "is" 

PRINT "GRAPHICS '1 OR 2" J 
INPUT G 

IF GOl AND GO 2 THEN 30 
GRAPHICS G+16 
POSITION 5,3 

PRINT *6;"N":REM UPPER CASE N 
POSITION 6 , 4 

0 PRINT *6 J "e" ♦ REM LOWER CASE E 
0 POSITION 7,5 

0 PRINT *6 ; "A": REM UPPER CASE INVERSE VIDEO A 
0 POSITION 8,6 

0 PRINT *6 J " t " t REM LOWER CASE INVERSE VIDEO T 
0 FOR COL=G TO 3 
0 HUE=INT (16*RND(0) ) 

0 FOR LUM=0 TO 14 STEP 2 
0 SETCOLOR COL , HUE , LUM 
0 FOR PAUSE=1 TO 40 : NEXT PAUSE 
0 NEXT LUM 

0 SETCOLOR COL, HUE, 8 
0 NEXT COL 
0 GOTO 150 
0 END 
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ANARROW 



10 REM * ANIMATED ARROW * 

20 GF'< APF-IICS 7 + 16 
30 Y = 40 ■ 

^0 FOF^ HUE=0 TO 15 
0 FOR X=15 TO 105 STEP 5 
0 SETCOLOF5 0 , HUE , 2*X/15 
0 F\EM * DRAW ARROW * 

80 COLOR 1 . 

9 0 GOSIJB 1080 0 

100 REM * ERASE ARROW * 

110 COLOR 0 
120 GOSUB 10800 
130 NEXT X 
l-TO NEXT HUE 
150 END 

1 080 0 F?EM x*x***M3kes Arr ow***xxx*xx 

10810 PLOT X,Y 

10815 DRAWTO X-15,Y 

10820 DRAWTO X-15, Y+2 

10330 DRAWTO X,Y+2 

108^0 PLOT X+2 1 Y+l 

10850 DRAWTO X-6,Y-3 

10860 PLOT X + 2 , Y+ 1 

10870 DRAWTO X-6,Y+5 

10880 RETURN 
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CUBE 



10 REM COLORED CUBE 

20 PRINT OPEN *1 , 4 , 0 , "K J " 

30 PRINT "YOU CAN CHANGE THE COLORS OF" 

40 PRINT "THE CUBE FACES BY HITTING DIFFERENT" 

50 PRINT "KEYS ON THE KEYBOARD." 

60 PRINT 

70 PRINT "THE CUBE ONLY LOOKS REASONABLE IN" 

80 PRINT "GRAPHICS MODES 3. 5, OR 7, BUT" 

90 PRINT "YOU CAN TRY OTHER MODES." 

100 PRINT "TYPE THE SPACE BAR WHEN YOU WANT" 

110 PRINT "TO TRY A DIFFERENT MODE." 

120 PRINT 

130 PRINT "GRAPHICS MODE" J 
140 INPUT GI GRAPHICS G+16. 

150 FOR 1=0 TO 3 * SETCOLOR I,0,14!NEXT IJSETCOLOR 4,9,4 

160 X = 1 2 t Y=9 

170 COLOR 1 

180 FOR 1=0 TO 10 

190 PLOT X , Y+I i DRAWTO X+10,Y+I 

200 NEXT I 

210 COLOR 2 

220 FOR 1=1 TO 6 

230 PLOT X+I,Y-i: DRAWTO X+I+10,Y-I 

240 NEXT I 

250 COLOR 3 

260 FOR 1=1 TO 6 

270 PLOT X+l 0+1 , Y-I { DRAWTO X+10+I, Y+l 0-1 

280 NEXT I 

290 FOR 1=0 TO 2 

300 GET I : 1 , KEY 

310 IF KEY=32 THEN PRINT ";:"‘.GOTO 130 
320 IF KEYC48 THEN KEY=48 
330 SETCOLOR I , 1 , 2*< KEY-48 ) 

340 NEXT I 
350 GOTO 290 
360 STOP 
370 END 
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ERROR CODES 



ERROR 


ERROR 


CODE ERROR CODE MESSAGE 


CODE ERROR CODE MESSAGE 


2 


Memory Insufficient 


142 


Serial Bus Data Frame Overrun 


3 


Value Error - 


143 


Serial bus data frame checksum error 


4 


Too Many Variables 


144 


Device done error 


5 


String Length Error 


145 


Read after write compare error 


6 


Out of Data Error 


146 


Function not implemented 


7 


Number greater than 32767 


147 


Insufficient RAM 


8 


Input Statement Error 


160 


Drive number error 


9 


Array or String DIM Error 


161 


Too many OPEN files 


10 


Argument Stack Overflow 


162 


Disk full 


11 


Floating Point Overflow/ 


163 


Unrecoverable system data I/O error 




Underflow Error 


164 


File number mismatch 


12 


Line Not Found 


165 


File name error 


13 


No Matching FOR Statement 


166 


POINT data length error 


14 


Line Too Long Error 


167 


File locked 


15 


GOSUB or FOR Line Deleted 


168 


Command invalid 


16 


RETURN Error 


169 


Directory full 


17 


Garbage Error 


170 


File not found 


18 Invalid String Character 

Note: The following are INPUT/OUTPUT er- 


171 


POINT invalid 


rors 


that result during the use of disk drives. 




* 



printers, or other accessory devices. Further in- 
formation is provided with the auxiliary hard- 



ware. 




19 


LOAD program Too Long 


20 


Device Number Larger 


21 


LOAD File Error 


128 


BREAK Abort 


129 


IOCB 


130 


Nonexistent Device 


131 


IOCB Write Only 


132 


Invalid Command 


133 


Device or File not Open 


134 


BAD IOCB Number 


135 


IOCB Read Onlv Error 


136 


EOF 


137 


Truncated Record 


138 


Device Timeout 


139 


Device NAK 


140 


Serial Bus 


141 


Cursor Out of Range 
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MESSAGES 



) 



ERROR 

CODE NO. ERROR CODE MESSAGE 



2 Memory insufficient to store the statement or the new variable name or to DIM a 

new string variable. 

3 Value Error: A value expected to be a positive integer is negative, a value ex- 
pected to be within a specific range is not. 

4 Too Many Variables: A maximum of 128 different variable names is allowed. 

(See Variable Name Limit.) 

5 String Length Error: Attempted to store beyond the DIMensioned string length. 

6 Out of Data Error: READ statement requires more data items than supplied by 

DATA statement(s). 

7 Number greater than 32767: Value is not a positive integer or is greater than 

32767. 

8 Input Statement Error: Attempted to INPUT a non-numeric value into a 

numeric variable. 

9 Array or String DIM Error: DIM size is greater than 32767 or an array/martix 

reference is out of the range of the dimensioned size, or the array/matrix or string 
has been already DIMensioned, or a reference has been made to an undimensioned 
array or string. 

10 Argument Stack Overflow: There are too many GOSUBs or too large an expres- 
sion. 

11 Floating Point Overflow/Underflow Error: Attempted to divide by zero or 

refer to a number larger than 1 x 10 96 or smaller than 1x10- ". 

12 Line Not Found: A GOSUB, GOTO, or THEN referenced a non-existent line 

number. 

13 No Matching FOR Statement: A NEXT was encountered without a previous 

FOR, or nested FOR/NEXT statements do not match properly. (Error is reported at 
the NEXT statement, not at FOR). 

14 Line Too Long Error: The statement is too complex or too long for BASIC to 

handle. 

15 GOSUB or FOR Line Deleted: A NEXT or RETURN statement was encountered 

and the corresponding FOR or GOSUB has been deleted since the last RUN. 
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ERROR 

CODE NO. ERROR CODE MESSAGE 



16 RETURN Error: A RETURN was encountered without a matching GOSUB. 

17 Garbage Error: Execution of “garbage” (bad RAM bits) was attempted. This error 

code may indicate a hardware problem, but may also be the result of faulty use of 
POKE. Try typing NEW or powering down, then re-enter the program without 
any POKE commands. 

18 Invalid String Character: String does not start with a valid character, or string 

in VAL statement is not a numeric string. 



Note: 



The following are INPUT/OUTPUT errors that result during the use of disk 
drives, printers, or other accessory devices. Further information is pro- 
vided with the auxiliary hardware. 



19 

20 
21 
128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 



LOAD program Too Long: Insufficient memory remains to complete LOAD. 
Device Number Larger than 7 or Equal to 0. 

LOAD File Error: Attempted to LOAD a non-LOAD file. 



BREAK Abort: User hit 



BREAK 



key during I/O operation. 



IOCB 1 already open. 

Nonexistent Device specified. 

IOCB Write Only. READ command to a write-only device (Printer). 

Invalid Command: The command is invalid for this device. 

Device or File not Open: No OPEN specified for the device. 

Bad IOCB Number: Illegal device number. 

IOCB Read Only Error: WRITE command to a read-only device. 

EOF: End of File read has been reached. {NOTE: This message may occur when 
using cassette files.) 

Truncated Record: Attempt to read a record longer than 256 characters. 
Device Timeout. Device doesn’t respond. 

Device NAK: Garbage at serial port or bad disk drive. 

Serial bus input framing error. 

Cursor out of range for particular mode. 

Serial bus data frame overrun. 



J IOCB refers to Input/Output Control Block. The device number is the same as the IOCB number. 
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ERROR 
CODE NO. 



ERROR CODE MESSAGE 



143 

144 

145 

146 

147 
160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 



Serial bus data frame checksum error. 

Device done error (invalid “done” byte): Attempt to write on a write-protected 
diskette. 

Read after write compare error (disk handler) or bad screen mode handler. 

Function not implemented in handler. 

Insufficient RAM for operating selected graphics mode. 

Drive number error. 

Too many OPEN files (no sector buffer available). 

Disk full (no free sectors). 

Unrecoverable svstem data I/O error. 

File number mismatch: Links on disk are messed up. 

File name error. 

POINT data length error. 

File locked. 

Command invalid (special operation code). 

Directorv full (64 files). 

t 

File not found. 

POINT invalid. 
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Note: The period 

RESERVED 

WORD: 

ABS 

ADR 

AND 

ASC 

ATN 

BYE 

CLOAD 

CHR$ 

CLOG 

CLOSE 

CLR 

COLOR 

COM 

CONT 

COS 

CSAVE 



ALPHABETICAL DIRECTORY 
OF BASIC RESERVED WORDS 



is mandatory after all abbreviated keywords. 



BRIEF SUMMARY 

ABBREVIATION: OF BASIC STATEMENT 



B. 



CLOA. 



CL. 



C. 



CON. 



Function returns absolute value (unsigned) of the 
variable or expression. 

Function returns memory address of a string. 

Logical operator: Expression is true only if both subex- 
pressions joined by AND are true. 

String function returns the numeric value of a single 
string character. 

Function returns the arctangent of a number or expres- 
sion in radians or degrees. 

Exit from BASIC and return to the resident operating 
system or console processor. 

Loads data from Program Recorder into RAM. 

String function returns a single string byte equivalent 
to a numeric value between 0 and 255 in ATASCII code. 

Function returns the base 10 logarithm of an expres- . 
sion. 



I/O statement used to close a file at the conclusion of I/O 
operations. 

The opposite of DIM: Undimensions all strings; 

matrices. 

Chooses color register to be used in color graphics 
work. 

Same as DIM. 



Continue. Causes a program to restart execution on the 



next line following use of the 
ing a STOP. 



BREAK 



key or encounter- 



Function returns the cosine of the variable or expres- 
sion (degrees or radians). 

Outputs data from RAM to the Program Recorder for 
tape storage. 
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RESERVED BRIEF SUMMARY 



WORD: 


ABBREVIATION: 


OF BASIC STATEMENT 


DATA 


. D. 


Part of READ /DATA combination. Used to identify the 
succeeding items (which must be separated by commas) 
as individual data items. 


DEG 


DE. 


Statement DEG tells computer to perform 
trigonometric functions in degrees instead of radians. 
(Default in radians.) 


DIM 


DI. 


Reserves the specified amount of memory for matrix, 
array, or string. All string variables, arrays, matrices 
must be dimensioned with a DIM statement. 


DOS 


DO. 


Reserved word for disk operators. Causes the menu to 
be displayed. (See DOS Manual.) 


DRAWTO 


DR. 


Draws a straight line between a plotted point and 
specified point. 


END 




Stops program execution; closes files; turns off sounds. 
Program may be restarted using CONT. (Note: END 
may be used more than once in a program.) 


ENTER 


E. 


I/O command used to store data or programs in un- 
tokenized (source) form. 


EXP 




Function returns e (2.7182818) raised to the specified 
power. 


FOR 


F. 


Used with NEXT to establish FOR/NEXT loops. In- 
troduces the range that the loop variable will operate in 
during the execution of loop. 


FRE 




Function returns the amount of remaining user 
memory (in bytes). 


GET 


GE. 


Used mostly with disk operations to input a single byte 
of data. 


GOSUB 


GOS. 


Branch to a subroutine beginning at the specified line 
number. 


GOTO 


G. 


Unconditional branch to a specified line number. 


GRAPHICS 


GR. 


Specifies which of the eight graphics modes is to be 
used. GR.O may be used to clear screen. 


IF 




Used to cause conditional branching or to execute 
another statement on the same line (only if the first ex- 
pression is true). 


INPUT 


I. 


Causes computer to ask for input from keyboard. Ex- 
ecution continues only when key is pressed after 

inputting data. 


INT 




Function returns the next lowest whole integer below 
the specified value. Rounding is always downward, 
even when number is negative. 


LEN 




String function returns the length of the specified str- 



ing in bytes or characters (1 byte contains 1 character). 
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RESERVED 

WORD: 



ABBREVIATION: 



BRIEF SUMMARY 
OF BASIC STATEMENT 



LET 


LE. 


Assigns a value to a specific variable name. LET is op- 
tional in Atari BASIC, and may be simply omitted. 


LIST 


L. 


Display or otherwise output the program list. 


LOAD 


LO. 


Input from disk, etc. into the computer. 


LOCATE 


LOC. 


Graphics: Stores, in a specified variable, the value that 
controls a specified graphics point. 


LOG 




Function returns the natural logarithm of a number. 


LPRINT 


LP. 


Command to line printer to print the specified message. 


NEW 




Erases all contents of user RAM. 


NEXT 


N. 


Causes a FOR/NEXT loop to terminate or continue 
depending on the particular variables or expressions. 
All loops are executed at least once. 


NOT 




A “1” is returned only if the expression is NOT true. If 
it is true, a “0” is returned. 


NOTE 


NO. 


See DOS/FMS Manual ... used only in disk operations. 


ON 




Used with GOTO or GOSUB for branching purposes. 
Multiple branches to different line numbers are possible 
depending on the value of the ON variable or expres- 
sion. 


OPEN 


O. 


Opens the specified file for input of output operations. 


OR 




Logical operator used between two expressions. If 
either one is true, a “1” is evaluated. A “0” results only 
if both are false. 


PADDLE 




Function returns position of the paddle game controller. 


PEEK 




Function returns decimal form of contents of specified 
memorv location (RAM or SOM). 


PLOT 


PL. 


Causes a single point to be plotted at the X,Y location 
specified. 


POINT 


P. 


Used with disk operations only. 


POKE 


POK. 


Insert the specified byte into the specified memory loca- 
tion. May be used only with RAM. Don’t try to POKE 
ROM or you’ll get an error. 


POP 




Removes the loop variable from the GOSUB stack. Used 
when departure from the loop is made in other than 
normal manner. 


POSITION 


POS. 


Sets the cursor to the specified screen position. 


PRINT 


PR. or ? 


I/O command causes output from the computer to the 
specified output device. 
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RESERVED 

WORD: 



ABBREVIATION: 



BRIEF SUMMARY 
OF BASIC STATEMENT 



PTRIG 




Function returns status of the trigger button on game 
controllers. 


PUT 


PU. 


Causes output of a single byte of data from the computer 
to the specified device. 


RAD 




Specifies that information is in radians rather than 
degrees when .using the trigonometric functions. 
Default is to RAD. (See DEG.) 


READ 


REA. 


Read the next items in the DATA list and assign to 
specified variables. 


REM 


R. or . iaJXAik 


Remarks. This statement does nothing, but comments 
may be printed within the program list for future 
reference by the programmer. Statements on a line that 
starts with REM are not executed. 


RESTORE 


RES. 


Allows DATA to be read more than once. 


RETURN 


RET. 


RETURN from subroutine to the statement immediate- 
ly following the one in which GOSUB appeared. 


RND 




Function returns a random number between 0 and 1, 
but never 1. 


RUN 


RU. 


Execute the program. Sets normal variables to 0, un- 
dims arrays and string. 


SAVE 


S. 


I/O statement causes data or program to be recorded on 
disk under filespec provided with SAVE. 


SETCOLOR 


SE. 


Store hue and luminance color data in a particular color 
register. 


SGN 




Function returns + 1 if value is positive, 0 if zero, - 1 if 
negative. 


SIN 




Function returns trigonometric sine of given value 

(DEG or RAD). 


SOUND 


SO. 


Controls register, sound pitch, distortion, and volume of 
a tone or note. 


SQR 




Function returns the square root of the specified value. 


STATUS 


ST. 


Calls status routine for specified device. 


STEP 




Used with FOR/NEXT. Determines quality to be 
skipped between each pair of loop variable values. 


STICK 




Function returns position of stick game controller. 


STRIG 




Function returns 1 if stick trigger button not pressed, 0 
if pressed. 


STOP 


STO. 


Causes execution to stop, but does not close files or turn 



off sounds. 
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RESERVED 

WORD: ABBREVIATION: 



BRIEF SUMMARY 
OF BASIC STATEMENT 



STR$ 



THEN 



TO 

TRAP 

USR 



Function returns a character string equal to numeric 
value given. For example: STR$(65) returns 65 as a 
string. 

Used with IF: If expression is true, the THEN 
statements are executed. If the expression is false, con- 
trol passes to next line. 

Used with FOR as in “FOR X * 1 TO 10”. Separates the 
loop range expressions. 

T. Takes control of program in case of an INPUT error 

and directs execution to a specified line number. 

Function returns results of a machine-language 
subroutine. 



VAL Function returns the equivalent numeric value of a 

string. 

XIO X. General I/O statement used with disk operations (see 

DOS/FMS Manual) and in graphics work (Fill). 
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ATASCII 
CHARACTER SET 
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